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ORBIT 

DESCRIPTION 

ORBIT is the executive control routine for the orbit 
integration. • 

' At the beginning of each arc it initializes required 
program constants as well as the variational partials at 
epoch. If epoch needs to be reset to a previous time, ORBIT 
negates the stepsize, and calls for COWELL integration back- 
wards' to- the desired time.. After backward integration is 

« 

completed, ORBIT resets the stepsize to the proper positive 
quantity. 

1 For each time point for which it is called, ORBIT 

performs the following tasks: 

'A 

• If necessary, calls subroutine COWELL to integrate 
the orbit further. * 

• Calls INTRP to obtain values for the position, 

velocity. In the data reduction mode, variational 
partials associated with the orbit parameters are 
also calculated. * * 

• Converts position and velocity from true equator 
and equinox of reference day to true equator and 
equinox of date using subroutine REFCOR. 

* ' • ‘ '••••' 
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REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOft_^ 

NAME '* tfRBIT * 

ENTITY POINT PLRPQS* 

OREUT1 TO INITIALIZE 

OREIT * TC RETURN SATELLITE STATE (POSITION. £ VELOCITY) 

AND, FORCE MODEL FAFTI/LS AT THE CALLrTC TIME (DAY) 

CALL I NS SEQUENCE CALL CFSI T1 ( FCT .SU *, X P/ FT ) 


SYME'JL 

TYFH 

CLSCKX FTI CN • \. 

FCT . 
(3.1) 

DP 

INPUT - 

ACC£LC FAT I CN AFFAY COPEIT AND FORCE MODEL 
PARTI A LG) 

2LM 

(2*2,1) 

DP 

I M=UT - 

SUM /P FAY US LG EY SUMMEL-COVELL INTEGRATOR 
C I NTi!FPCL/T OR 

* 

>PART 

CP 

OUTPUT - CFfelT AND FOFCC MCCcL PARTIAL MATRIX 


< canton* >,;> 

CALLING SEQUENCE CALL CCBIT(OAY) 

/symbol type descf.ipticn 

CAY DP INPUT - DLSIPiiC' CUTPJT TIME 

SUBROUTINGS USED COWELL INTFP FLEM CATFS PCFCOR 

COMMON BLOCKS IKT5LK I M TDK INT6RP PFIORI XYZOUT 

• CTI ME CELEM XY^ APAFtAM C3NDUT 

INPLT FILES NCNE .* • ^ 

OUTPLT FILES Fnl NT£ K 

BEF LRcNCcTS •GLCDYN SYSTEMS CL SO- I PT I ON* 

VCLLMii 1 - GFCCYN CCCUHFNTAT ICN 


SLUR OUT I ML CPr.ITl (FCT.3UM.XPART) 

f:CAL*d CIA Y‘7 .( 4 V *S e Cl »XP iPT f 6 *N? C N V < ♦ l J * $UM(2 t 2#I),STrPSZtFCT(3# 
R“AL*3 LL**M£T »GV , TUG T2 S • A':. * A LS C • C / Y K, * »- ( U J,T|v( 4 J, 3 DOT , Of- 5S. 

■ P?AL*e FEIN ,P*V0CN .MSAT .G*2 .£> * hC . APCf/* Af'LV.pp* ESS. AG AT 
F*iAL»3 CPSl C , V30JY ,CC ,CL>: , "MSS- *f.L_ , -'I !%■ FAC, CAT AIP* XY/rNfi 

• CAG^/.F . Z-'.i- i LR .JUiTi NT2 . PP tko . 3 > . F li'C . 2 I . CC CCC . t ) . C< 20. 2) , 

• VCCC.2C .1) .VC.< zr ,2 ) 

1ni^g:r **-al r/.cc a ,o^d::p *i cpg: a (a ) 

LOGICAL TCAi c T* I Ml T Al. ,VAf STP ,ML VC. 5 « 1 M TC 
- COMMON/ INTO L«* /Tn-uTl <i) ,TmI T?$,Ch..f . I 5 O. Ft AT ( <b ) * GM 2 < G ) . » C 2 ), 

• Ot*«.ITt 2) « n C ( 31 «A"r.v(r ) ♦/.J’LM’l . r ; f .%«, , I m i t AL . NOP pat *t mstg:* < 2 ) . 

• psin5v_< 6) • st^psz.ca ) t f r-PL*ccaA ) *cprr.A (a ) . 


0**3 1 
S ) D F 3 I 
DR5 I 
3R*I 
OP?. I 
0F5T 
OFBI 
o»ai 

OF«I 

r*m 1 
or. f ii 
or.c i 


44 

AS 

4fc 

47 

43 

4$ 

SC 

51 

52 

53 

54 
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C ST 


ASATC 2 ) »M£AT(2I ,VAPSTP<2 > .HLVCSK (2) ,NLCN(2 J , AC CR<4 }, . 

SRADt 2) >1 £* ARIo) . TC»-CFT . KTCDY 

CD«*4DN/INI Tl2K/ir.PYM0 • 1 1 . PHM»tFSL C *ir.UMI (4 } • OPEcL <6* 2 ) • ICU«KI 25) 
COMMON/I NT* PP/K UM( H82) ,»/(2 *2) 

COMMUt«/FPl JP1 /LiLCVI Mt,2) .irLfUf-6) , CC (2) • EM !SS( 2) 

C 0 f''ir»N/>YzocT/xYz::sr> (f- , 2 ) .r. pgp*k <s ,r j 

CQMMCN/CTIML/L/.TAI-.P ,C4YC‘.F { 2 ) ,CAYC ,CAY5TP(17> 

COPMr.N/CF. L" fc/t.Lf MST ( 6 ,2) .OF ELLA (6,2 ) , IORPVL <£> 
CO«MUM/*YZ/XYZDUV(l6> »l SAT ,t FCfcCf (2 ) . 

COFMON/APAP AP/KKD (4 ) *NSAT »K0(5 ) 

C0Kf40N/CCN3CT/.vi NOU7<6) *N* CKWX * JVAP (1C ) 

US TURN 

CNTPY OPPIT(DAY) 

IN IT 0=1 KHAL 
IFf-.NDT.lM TALJGD TC 9 
lt*AC=C 

STcPSIZC AND l NTLiCR A TI C N CPDLfi 
H( ||=3TtPSZ (1 > 

Ml 21 = STEP SZ ( J ) ' / . 

HC 2> = STLPSZ (2 > 

Ml 4)=5TrP£Z(A) 

IGfor.PI i) - dp:l;p(i » 

!OfOi fc( 2)=OfOL M 3> 

IORDcRI 2)=0PDcLP (2) 

IORDf’R< 4) «OFt ufiUI 
AC£0=Af:**2 

DO 50 I =1 .6 *• 

GM2C 1 > = GM%.mi<ODY< 1 I 
X£AT=0 

IP 7 J =1 . _ 

ICISP=1 

t£AT=ISAT*l . > 

1SATU1=1 SAT-1 ; 

IFC I S*T ,CT. NSAT) nrTUPN 

Df.Tf.RM I ML S TAP T1 NG LOCATICN CF ARRAYS I r WC?E TH/K I SATELLITE 

IF ( I SAT *G T, 1 ) I D I SP = I DI 5Pf-M( 1 , I S ATL1 ) ♦ < NLCN ( IS ATL 1 )•* 1 )*?♦*. ( 2* i SATL 1 > 
IP 7 = 1 ♦ ( I SA T L1 ) *2 

IFII54T.G7. 1) IPT1=I PTX4-NECMI5ATL1 ) • 


t»C 

9 


10 


IFC.iWT.IMT/UGO TO 200 
C INI 7IAL1 z: 

M( 1. ISA T)*0 
Ml 2, ISA T) =0 
TIMC IPT ) = £, 6<*C4 OAYO 
7IM( I P T ♦ 1 )»1I M( I OT) 

BCCI SAT)=C«DC 

4FJMSATC 1 SA T) #6 7. 0. DO) DC C I S AT) r 

C D«AG 

nc ISAT) =t*C< I SAT) *CCI.I SAT) 

FCCTI I SAT)=rC ( I SAT) ♦CDO ( ISAT ) 
AP.L^l ISAT) sC.ro 
IF | M 5 AT { 1 $/ T) 

C SOLAR «"* ? L1€T1 VIT!': £ 

APG»'< ISAT ) -APLPf I SAT) Vl SSI 1 S f T ) 
' IFlNLONll £A T) .f.0.1 ) S«AC I ISAT 1=0 
1 00 1 1 = 1 .6 
C INITIALIZE Cf5t* I 7 


3RD I £6 
DR9I 57 

dps i *e 

DPBI 59 
0P8I CO 
DPR I 61 
3P0I 62 
DPBI 63 
DPBI Cf 
DR9! , ‘<£5 
DP.B I 66 
DR9 I 67 

D»B1 68 
DPBI 69 
3 Pd 1 70 

DP3 1 71 

ORB I 7? 
3 C B X 73 
• 0R9I 74 

3R9I 75 
DPBI 76 
3RD I 77 
DPei 7B 
DPBI 79 
ORB I CC 
. DRBi ex 
DRBI e2 
3PBI £3 
DPBI 64 
ORB I 65 
30RI 66 
DPBI 87 
3FPI 68 
DRBI 69 
DPBI 90 
DPBI 91 
3P3I 92 
OPRI 93 
DRBI 94 
OPBI 95 
DRBI 96 
DRBI 57 
ORH I 95 
DPBI 99 
DPBI ICC 

SC „ * ASAT ( IS AT )/M5 AT < IS AT ) DPBI ICI 

DPBI l C2 
DRBI 1C3 
DRBI 194 
DRBI 1C5 


G 7 1 C • DC ) AFLM ( ISAT )=/SAT ( ISAT j * p Pf-SSS/MS AT I 1 SA T ) 


DPBI ICC 
DPBI 1C7 
DPR I 1CB 
DPBI IC9 
DPBI I1C 
DPBI III 
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APAPTCI .1 .1 SAT) S--SLEMSTM .ISAT) 

ISC CONTINUE 

IF C Ni'ON ( I SA T) • C C • 1 ) G 0701 50 
C INITIALIZE F/ R T I i_S 

NNC = N2QM ISAT) ' 

tO 19'J 1-1.6 . 

CC 170 J-2.NN0 ‘ ... 

I7C >PA^T< I , J .1 SA T) =5-. HO 

lea >paf tc i ,i +i ,i sa t) ,co '• . -• 

ISC IF <18 AC .LO. IGAT)GCTC65C * 

IF CCA YC .LE. CA TAr.PIGGTCOSO 

C tNTfGKATi 3ACK»ARuS IN TIKI IF T I Mu PCI NT OSSIPtC PFLCLOfS E°rC H 
FC IPT)*-»hCl FT) 

CALL CC bb’LLCD ATA -iP.XPAFTCl ,1 * I S AT ) , FCT ( 1 . I C IS P ) * IdRCt.R ( IPT) • 

• -H< I FT) ,TI “C 1 PT) ,SUM(1 ,1 ,1 PT 1 ) , V A PS T P US t.T ) « - 1 • CC ♦ M { 1 • I SAT > . 

• 1 • l SA 1 * PP (1 * I SAT) tPCl * I SAT ) . CC <1 . IS AT ) . C ( 1 . IS AT >• V CCC l • IS AT ) . 

• VCC1.ISAT)) 

££C1=C S'.C 04*aATArP-TI MCIPTI )/H ( IPT ) 

CALL INTF P( SECl .H (I CT) ♦ I CFCi. F ( I PT ) . 1 , l_L£WST (1* IS AT) . *CTC1. I CIS* ) 

• M(1,I£AT) ,1 .IPU)) 

CALL i'L E ^ ( £ l £ M S.T ( 1 .IS4T) •OPFJfTLA Cl.lSATI.l* *T PUfc •• OR EfLAC 1 » I SAT ) ) 
DO 2 4) i = i . e 

OffB-LCI .1 SA T) -CRBSLAU .ISAT) ‘ ‘ 

t ELFMI N( I ♦ I SAT) =c LC MST (I • I S AT ) 

240 CONTINUE 

Xb/C— I U AC 4j 
INXTAL-.TFUE. 

C HAVING FlMlSHEa U AC K Vi A F O I NTFGPAT I C , PCI N IT I AL l 2 f: TO BFC-IN FO* KARC 
C INTLGRATIJN 

HC I p T ) =-H ( I PT) 

tlPC 1PT) = S. C404OATAKP 

TIF( I P T ♦ 1 )=T1 Y< I or) * 

HC IP T) *0? / I N l ( H < I P T ) *ST“FSZtI SAT ) ) . 

Fac*h( i ft)/st;p<zu SAT) 

IF(FAC#Nc.l .!>CJH< I PTMI =$T5FSZ{ JSAT+2)*FAC 
IFC1DAC .LT. NSAT)GCTC 1 
LA Y-3~DA TAEP 
C 5tStI EPOCH TIMS 

CALL OA Tc S( CA YO .K-PTMC .IGPHM tC-FSCC) 

GO TO 1 
65C CONTINUE 

CAU i-OfcElLCL AY .XPARTU ,1 .IS/T) .FCT (1 t ID!SP), IQr r tK C IPT ), H( IPT), 
, • 1IMC I FT) , SUM( ) *1 ,IPT1 ) .VAFSTFCXL/.T >*1 .LD.PCl. ISAT l.NfcONC ISATl 

• I SA T. FP( l ,1 T) .P< 1 ,1 SAT) , CC ( 1 • IS -AT > • C U • IS *T ), VCCC I . ISAT ). 

V \Ci X • ISAT) I 

IF I I ShT.LT* NSAT) I NI TAL*INXTC 
♦ GO TO 255 

C C.TEFK IN.- IF INTEGRATION IS NTL-OLO 
2C0 GIN7I =6 . 643 4 OA Y 

DIME - J IfiTl ♦?. .C C *MC I PTU ) 

OINTl-p lull ♦«(: IT) *H u PT) 

IF(01NT1«G~ .TI K ( I TT) .05. (N1CNC I SAT) , r,T . \ , ANC.r INT2.G- • 

« TI V C I PT+l ) ) JCALL CCA .LLC rAY »X F AFT (1 , I . IS^T ). -rr ( ! , J^ISO ), 

• n!i);f-UPl) ,l'(iyT> . T IMIFT),CU'/(i,l,mi ) , V AI-f.TP ( If A T ) . 

• * I SA T ) . N • * G K C I 3 A T } .ISAT « F'F ( 1 « 1 3 AT > * P ( l * ISAT ) . C C < 1 • 1 SA T ) • 
9 - CC 1 *1 SAT) .VCC { I *1 SAT) .VC U « IS AT ) ) 


. ORai I 12 
3RD I 113 
opai U4 
3RBI 115 
ORB I 116 
3RBI 117 

DF3I 118 
3R3I 1)9 
0*32 120 
Off 91 121 
VOI 122 
3RBI 123 
3PBf 124 
3F3I 125 
3PBI 126 
3P3I 127 
ORB I 128 
0P6I 129 

* 3R-3I 129 
3RBI 131 
DCS I 132 
0R3I 133 
0P9Z 134 
ORB I 135 
3Rai 136 
0P9I 137 
3RBI 13Q 
3PBI 129 
0R3I 149 
DR3I 141 
0P3I 142 
ORB I 143 

3«ei 144 

ORSI 14S 
OPSI 146 
0R8I 147 
ORBX 148 
ORBI 149 
ORB I 15C 
ORai isi 
ORB T 152 
3R3I 1 S3 

• DF-2T ISt 
3PBI 1 55 
0P91 156 
ORBI 157 
ORBI 159 
0P2 I 159 
ORBI 169 
ORB I 161 

opbi ic2 

ORBI 163 
?RB1 164 

0»-31 165 
.1 A 3 r ! C 6 
ORB! 167 
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TUT- INFRACTICNS OF STEPSI2LS FROM INTEGRATOR 


C COMPUTE INTEGRATION 

c TIME 

• 22£ SS-'CX=< 2. CO 4*0A Y~TI w(ipt> > /HU FT > 

CALL INTRP( SHCI .H U PT ) . I CFDEF ( I F T ) , .1 .XPAFT < I. 1. IS AT > 

• «U 1 1 1 £A T> ,SLM( 1 ,1 ,1 PT1 ) ] 

25C I F t N** 3N Cl SAT) .LT.2J0C TC 3JC 

S=Cl-( 3. 6-0 4*f A Y-TI V { I PTt t ) ) /H ( I FT 4 1 > 

CALL INTRP( Si Cl .HU PT*1 ) , IOFCjK ( TPT+1 ) • NC.CH t I SAT )-l« 

• >PAVT(1 *2 ,I£AT> .FCTC .ICISPAMCl.ISAT) I,M(2. ISAT )• 

• SLMC 1 ,1 .1 PTI* 1 ) ) 

2C 0 IF CTuRiFT ISC TC 7 CO 

C CORRECT OR Q I T f ROW TRUE OF RLrFRFNCC TO TPUT OF CATE 
CALL aiFCOROAV ••FALSE* .XPARTd *1 , JSAT )) 

CALL RSFCCR <SAY ••F/-L&C* .XPART (4 *1 , I SAT ) ) 

C STOFF 0-?H I T IN CJFWCN 
7CC CO B 0 3 1-1.6 

600 >YZLiN3( I * I SAT ) = XPAF.T (1*1* I SAT } 

. JFCaO*>R < 1 SA TJ .L’C.C) G0T010 
C ST3P£ CRAG PAPT1ALS IN CCVMCN * 

oo 9co i=i,e 

SOO DhGPARf I .ISAT) =XPAF.TCI ,0.ISAT> 

CO TO 1 C 
CNO ' 


0R3f lee 
3R9I It? 
OROT 17C 
• FCT ( I. ICISPIOFai 171 
3PDI 172 
OPBX 173 
3R3I 174 
3RD 1 175 
OPOI 176 
3P.BI 1>7 
OPOI X7S 
3RBT 175 
3RBI 1€C 
ORQ I lei 
3FBI 162 
3REI1 1ST 
3FBI 1 G4 
DPOI 155 
3RUI 166 
3 Par ie7 

opsr iee 
3FBt ieo 
ORB r 1 50 
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name 

purpose 


GUT RAD 

CONVERTS INPUT IK RADIANS TC EITHER DCGrCCS* 
MINUTES ANC SECCNDS OP. HOURS • *1NUT?S AND SECONDS 


CALKING S£CV.r.NCE CALL CUTHAD { F A D , J H . 1 M *S *K ) 


# SYMBOL TYPE DESCRIPTION 

A 

KAO CP . INPUT - ANGLE TO EC CONVERTED IN PAOIANS 


1H 1 

IM I 

S CP 

. K * I 


CLTPUT - SI GNiC CECFiXS CP HOURS 

CUTFUT - UNSIGNED M NUT ES CF ARC OR TIMS 

OLTPUT - UNSIGNED SECCNCS OF ARC OR T IMS 

INPLT - SWITCH FCR CJTPUT ... 

K=1 OUTPUT WILL BE IN T !' f T UNITS 
K=2 OUTPUT WILL 3E; IN ARC UNITS 


SUBROUTINES L SID 

NCNC 



COMMON BLOCKS ' 

t 

NCNE 



INPLT FILES 

. NONE 


* 

OUTPUT F l L£ S 

NONE 




SUBROUTINE OUTftAD(PAD.IH.I W.S.K) 

PC AL • S RAD • S * FAC lAfJ»S v lN 
C . CONVERT TV 01 Cl PAL tCC.“EES 
S/.01/N*KAf*S7.2 35?7 9S0C- 
C IF OLTPUT IS Tn 3E IN KCU."S . DIVIDE EY 15 
IF *K.:-:o*2) P AT; I A N = F A O I «v N/ IS* CO 
C EXTRACT HDUHS 0 P DEG REX S 
IH=PAD1AH 
H=IH 

C t XTPAC T -MINLT-IS 

‘ SMIf4s(PADIA N-H) *00.00 
I»/aS-!IN 

C LX TRAC T LCCNDS 

I N- 2 V > *6 C. 00 G 
PETLkN 

SNO . 

J ; 


DUTP 

3UTR 

OUTR 

3UTP 

OUTC 

nUTR 

OUTP 

3UTP 

3UTP 

OUTR 

3UTR 

OUTR 

3 urn 
DUTR 
OUTR 
OUTP 


*r 


33 

34 
25 

36 

37 
30 
29 

40 

41 
4? 

43 

44 

45 

46 

47 
46 
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NAME f'CfcHO „ 

PURPOSE TO REAP FCE FORMAT TATA 

CALLING SEQUENCE CALL PCEtfC 
SUORCUT I NE S USED . RANGWR YMOAY 

COMMON BLOCKS 


»*®UT FILCS 
OUTPUT FlLcS 
WFCFeNCG S 


T Cl F 
CONST 5 


APAKA y CGEOS COASTS . CT JME 

PFEbLK SIGDLK 

NCNE 

NONE 

•GCCCYN SYSTEMS DESCRIPTION* - /PPF.N&IX C 
VOLUME 3 - GECDYN LCCUME NT AT ION 


INT BlU 


SUBROUTINE CCERO 
IMPLICI 1 nlal*6 ( A— H * C~ 21 
» LOGICAL <1 OKSAT *VHFCHN,FF.CFRC 
LOGICAL NCR ATL 

IN TEG'; c *2 CLLL tCHA N“L »NK‘. AS • VTY PC * P“£TYP* I MT Y PC, ISTNO, I 
IWW..-R i-.-fr no 

CF A|. T’~t IF * ® T«3 T 7L s- .* ri NT «? I CC^iC. . S CPT ?.T 

COMMON/CG: nS/ISATlD , ! o=:PR(25l ) , NPr.r# NS IGtNCULL.S IGCHG( 

• . IMTYFI- (SC) .1 STNO(SC) .CULL<2 . ICG ) 

COMMON/CCK51S/CP1 .( • T *C=» I . C2 A .32 F 

COMMON/C TI Me /•'. A T Ar. P *0 AY P‘;F lOiYL * C / < S T Pi LAY I NT (15) 
C0MM3N/INT-JLK/I NT0K1 (53 ) • NOR AT r . lNTC K 2(7ft ) 

COMVON/PkiJS LK/C AY iC 5 Si ,Cr32,CIGl •SIG2.SRFN0X. ISTA.MTYPf 

• I SATNO .Pf-r: TYP ,CH ( N-L »VHFChu, FFr pr.Q, CJ-TCNO 

COMMON/ S I 0:i LK/SI C5TC ( 2C ) ,SGFcn T < ) .ICES, IDTAPM3) 

AHIMLI Ca T> STOIF (4«J *CAY)/3#6AU4 

IFl lOiJS.LL. C> ICfcS=2C? - 

INITIALIZE 

NONA TE=. PAL Sc. 

e* r- /F- 4. ... 

1 ,«*• Vfc. - VL u 

IS1A-C 
; * ISATNOsl 
NMLA3=I 
tPsC 
CMAN1L=C 
■ VHrCMN= *F >.L sc • 

PA'iPRO = .FALS... 

£RFNCX=C. O C 

0FiS2 = C. CCC ■’ . . 


50 ), 


.NV-AS* 


C KCAt CS»S. U VA1 I JNS 

l » ■ f i. aii ( i c- n s • i c ». «: • r. Pi =io no =^c c j 

MlV..iMlYP; -i 

IF( I v%*E »U, c> GC TO 2 00 


MTV I YUQ, I NM.SrC. "IPS I , S I GI 


“CEP 

22 

“CEP 

23 

PCEP 

2*. 

“C.-R 

25 

Y 3 1 3 C£P 

26 

PCuP 

27 

•*Lt.N 

ka 

PCER 

29 

3 CEP 

2C 

' “CEP 

21 

3 C5R 

32 

9 CEP 

23 

“CER 

34 

3 CLP 

25 

3 C~P 

36 

PCER 

37 

3 CEP 

28 

PCFP 

29 

3 CFR 

40 

PCS* 

41 

»CSP 

42 

PCSP 

43 

PC rP 

44 

. S C;R 

45 

3 CEP 

4ft 

PCER 

4? 

P CEP 

48 

®CE° 

49 

PCEF 

50 

3 CFR 

51 

PCSP 

S2 

3 CI r 

S3 

3 CZP 

54 

>CF R 

55 
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IFO»TVPE*L1 .1 5. C*. MTYP'T.GT.26) GC TC 1C* 

C COM vt'f* T time to t . 1 cays f k c v jam o.o cf reference year 
OA Y=V*OAY( 1 YVO ,lHy .SEC) 

CA>=&AY4A! TIM £(r*AY) 
lr(3AY.LT,:ATAl'P} GC TC 1C 
IF(CAY. GT.l AYSTP) GC TO 2CC 
; IFCSIGl *LL» C • C C G ) 51 G 1 - SI GSTC( KTYP'- ) 

• IF <NSIG .LE. C) * GO TO 50 * 

NN 1 = 0 

C CHICK For-, sigma CHANGE: s 

co ao i*i ;N5ir. .. .. . 

IF C I STNC( X ) G. C • AND* 1 FTYPc ( I ) • £ C. KTY PC > NN1 = X 
20 CONTI NUT! 

IF (NN1 • G 7 • 0 ) S1GI sSIGCHGCNNl ) ' 

SC IF (MTYP1I*LT.2i .ANO# MTYP2.GT, 17) SI01=$IG1M •OC-2 
lF(MTYPtf«20«22) SIG 1 =5! Cl *1 .0C~6 

100 if (miyp-.l:-. .221 r,c tc no 

. OB £}- Jb 51 «l 2“ 

Sid — sici *ra- 

110 ^IMJ.VlsNUf'LCFfrl •' * . . * 

IF CNCLLL • L3 .• C ) GC TC 26G 
OO' 24 0 1-1 • NC CL L 

tF(NUMF2F-CLLL( 1 .1 1 ) 24C.23C.22C 
220 IF(NL!CCF .G 7. CULL <2 .1 >) GO TC £40 
23.0 sici-:. CCC 
240 CONTINUE 

26C Kr.CNO*P£CNCM *. 

C STOr.I- CO£wR W.7 1 CN3 
CA LL R A NC '*P 

GO TO 1 C - 

C STORE LAST C6 S."*SVAT2-CN as ZERO . - ^ •• 

- 2GC 

■Rf.CNO-*£CN0*l 
CA LL hi, fcP 

PAINT 2CCC .NU-VPER .1 DCS ■ - • 

OA YSTP-C AY 

F.L1URM . • •' 

1000 FOFMATC lX.I2.lt .14, c 8 , A , ^24. 1**C1C.4) 

20C0 *OR-v;T( 1H0//3IX .16, • C5S2RVAT1CNS 5c.Ll : CT£0 FA CM MASTiR PCS DATA 
• • TA P £ NU Kb £. R * • I 3 ) 

2ND 


pcfr 

»CFP 

»ccp 

pccp 

P Ct“p 
PCEP 
PCZR 
»C“P 
»Ct£P 
PCCR 
»CEP 
»CEP 
>CFP 
PC=R 
»C£R 

pcer' 

• PCER 
»CF.R 

pccp 

»C£K 
»CFP 
P CFR 
»ccr< 
PCLR 
PCCP 
PCEP 

3 CFR 
prep 
»CSP 
»CEP 
. PCCP 
»CSP 
PC£P 
PC2R 
>CiB 
.. PCCP 
PCCP 
PC-f 
t,3CCP 
PCHR 
*CHP 


£6 

57 

£6 

£9 

<0 

£1 

£2 

C3 

£4 

£6 

£7 

68 

£9 

7G 

71 

72 

73 

74 

75 
7£ 

77 

78 

79 

ec 

ei 

F? 

£3 

£4 

85 

£6 

67 

e8 

89 

SC 

SI 

92 

53 

54 

55 

56 
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ENTRY 


CU<=CK foR 

SIC^A CHAMPS 


STofUr 


k 65See.V/\TXCiviS 


££*3 

OBSC OVATIONS 



Tlry^c 
L£S*s T«AM 

•V Meo > 


< 3-00 


200 


TVPt t-€SS THrt* 1C 
Sm «ii^rtr« 5 kL 
XTh^J A/ 


/ TnOAT V 

^o*j«/e.e.r Trmc^rc 
A«t.DAY& rG-O/v*- 
TAN 0.0 OP 
\ R£P 6 i^>JC<f } 


SToCe 

OftS<fe.\;^TXof 4 
A”S ZCR-O 


V "R€.tucaJ 


\CAC- 


ft fl-T7f» 
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NAME POEN 

ENTRY POINT PURPOSE 

PDLN2 INITIALIZATION 

*PDEN * * 1C PRINT ADJUSTED SURFACE DENSITIES 

CALLING SE COENCE. CALL PDEN2 ( BCE NT R , A , OCN, AD JDf.N. APS X G. SUV X* 

Df. NCON * S AV'S 1 G) 


ST P SOL 

TYPE 

DC SCR t PTI CM * • 



ecentr 

tz.:> 

DP 

1 NPUT - 

THE LATITUDE: ANC LCNGITUDT OF THE 
SURFACE DENSITY BLOCKS 

ADJUSTED 


AREA 

<A«1» 

DP 

INPUT - 

SURFACE DENSITY SUE-ELOCK AREAS 

« 



CCN 
< 11 . 

CP 

i nput - 

SURFACE DENSITY VALUES 


.* 

aojovn 

<1> 

DP 

INPUT C 

OUTPUT - / C JUST ED SURFACE DENSITY 

VA. UES 


APSXG 

<11 

DP 

INPUT - 

APRIORX SIGMAS FOR ADJUSTED DENSITIES 


SUM 1 
<11 

DP 

I NPUT - 

NCR PAL MATRIX 

% 



CENCOn 

tNCCMST 

DP 

.1) 

input - 

MATRIX OF CCNST FAINT EQUATION 

; '•* 


f A V SI G 

DP. 

SCRATCH 


• * .. - . 



<11 

CALLING 5LGLCNCE CALL FDL N < I CUTER ) * 

SYMBOL TYPE DESCRIPTION 

ICL1HP I INPUT - CUTER 1TEF/T I CM 

. SU9F OLTINES USED NCNE N 

COMMON U LOCKS . CPAPAH TPcFLK . 

INPUT FILES NO NT. 

OUTPUT FILLS t 1 I OUT - PRINTER 

, ' ‘ # * 

SUBROUTINE PDEN2 (L'CLNTR ,ARfc A ,DLN*Ap JCCN. A»S IG.SUM X, Oi NCC’V.SAVS I G > PDEN £S 
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REPRODUCIBILITY OF ' THE 

ORIGINAL PAGE IS POOR^ 


IMPLICIT K AL*Q( A-H *0-Z) 

LOGICAL C VP G P P 

DIMENSION &C:INTR<2.; ) .AF.rAlA.l ) ,Ct Ml ). ALjttNll >. APS IGC1 ItS'ttMlC I> 
OfMiNSJ CN ?LNCOK( NCCMST *1 > .SAVS I G( 1 ) • J.MCS (A | 

COMMJ-^/CPAPAM/NSTA ,KMAST .NSTFST .hf IV. VPI AS.NGFC1. NGPC2.NGPC0M. 

# »ICS : . «T ,C VPGPt\.Ll Ml .LI V? «N£l:K .M.LLGK* NT ICS? « NT IDCN • JNtt^S* t 

• NCJNST .NDCCNS 

* COMMON/ 1P-SLK/I MP, I CUT TAP'S ( 1C) 

XNOXNvX I ) sNPl 1~1 >-(I *( 1-1 > )/2 : 

; MCCN 2 =N AL- LO K- NC C N5T ‘ ... ’ . 

JNOSI I > = 1 
1NL3C 2) =NCON2 

' - INUSI 3) =NAI3 LCK+1 . • . ' ’ . 

|N9S(4) «N2-K 
LM=2 

IFINDiK.GT. h/.BLCK) LM=4 

fU- 1WN s ’/ 

CNT=iY PCLN( lOLTTRl 

I Z-KZf I M- 3 *U VA S T- N AH LCK* hCCNST ' 

DO ICO I-1*KABLCK *. .* • 

12=12+1 

-IFCM03< I.AO.LO.l) WQITL (ICUT .10CC ) ICJTfcF 
lF<MO-»( I *5>.LO. 1) V.FI TVidCUT .10C2) 

DnC=9ClKTK( 1 .1) 

. j JCP-OLG • 

SP*lCuG-It;P> *6G.CC0 

IMP— * 
ftP at ft*. I VP) 46 3.30 

OUG=®CLMP( 2.1 ) 

IDL=DrG ' 

SL=OiG- JCL) *90. 0L0 

IML=SL . % 

«L = ( £L- I ML) *6 0.0 0 

C SUM SUB-BLOCK mPLAS A NC CC*'PUTr. ACJUSTT.C SIGMAS . , 

ASLM=AA LA <.l .1 ) ♦ARr.A (2 . 1 )+ap~A(3 «I)+APFA(4. I ) 

IF 11 .GT .NCCN2 ) GG T 0 50 , 

I 1=1 NO X NO U 2) +1 2 

A0JS1G=CSGPT{ SUMi (I 1 ) ) - -*\- 

SA%SX5< I ) »*>G JS1 G 
GO To ICC 

SO <t^=O.CDC • ’• 

SLM$G2=C. CCC ' 

• ii=!~nccn2 
DO 60 L = 1 .L v . 2 

4t«INi>S(L) • ‘ 

42=1 NO $< L+l ) 

CO 60 J=J1.J2 

' Poci ) a =o r nc o m ii »j) . . • 

SLM=SLM + PeCOA *AO JOiM J). 
iriL.GT.2) GO TO tC 

SLMSG2= S LMSG2 + ( PwCUA *3AVSI G( J) ) * *2 
6C Cum i -nut , . 

* A04S1 0=0 SGF U SLM5G2I 

• AOJ3“N( I)=SLM ' . 

C PRINT D-HSl TIcTS ■ 

IOC fce !TT( I CUT. 10 01 } I .ITP,; ^p.SP.IM , I ML . SL • /SU V, f£ ; n { j) / 




PD2N 

£6 

PTFN 

£7 

p D4N 

se 

»C:N 

59 

3 DV>1 

60 

»DcN 

ei 

»p-:n 

<2 ■ 

»0£N 

63 

PO£N 

64 

Ppr.N, 

- 65 

»P£N l 

€ 6 

PDCN 

67 

>DcN 

63 

PPjsN 

69 

>Ci‘N 

7C 

PDE-N 

71 


72 

PCLN 

73 

a 02N 

74 

»C=N 

75 

P D£N 

76 

»b£N 

77 

pr-2N 

7t3 

»r".N 

79 

»D£N 

ec 

»DiIN 

ei 

»0EN 

32 

»C£N 

83 

»02N 

84 

»OaN 

85 

PDcN 

€6 

»OLN 

87 

POEN 

88 

»C £N 

89 

PD*N 

90 

PCcN 

51 

PCCN 

52 

»P£N 

S3 

PD2N 

54 

»D2N 

55 

p CSN 

56 

P02N 

57 

PDEN 

S« 

p Dc.N 

59 


10^ 

PT :N 

1C1 

PC=N 

1C2 

>rcN 

1C2 

PCiN 

104 

»PiH 

105 

PC£N 

1 C6 

PC£M 

ZC7 

pc;n 

1 C3 

Pt£N 

1 C 9 

»C5*N 

nr 

p e." h 

m 
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• AV JDEN( I ) «APSIC ( I ) ,A0 JSI G »D»:N 112 

Re-ices 3(\r.N 113 

FORMA T< lHt*<CX,46MSUeFACr PLK3 1 T It S ADJUSTED FOR OUT FR ITERATION* =>C>:n II* 

• 12/ 3d X « 1 SMCf- NT."? CF SLOCK* i ax .5H0C OCX ♦ I GX * SPVALU*% 24X* OOSN 115 

• SHS! GMA/2I X *3SHG7 CO "KTflC LAT1TJC1 EAST LCNRITU Zn ■* 4X* ^OcN 11* 

• 4HAPE.A »7>,tHA-PnI CkI ,7x ,1HAC JUSTl t . 7 X * b HA- Pf- I OF I • 4X t 3MA0 JUS T 5 0/* DEN 1J7 

• 1 2X* tH«r':LCC K ,2 U X ,1 3H0;'C Fn £ SCOf<C> I • 4X • 7H ( KM«.« ^ | 9 »D£N .19 

• 3< t>X )) ,3X ,9H< KG/M* *2 ) ) =»Dc« 11*3 

FORMA T( 1? x, 15 *?X *2 ( I 7 . 1 3 *F7 ,3) *~t P* 12 .0. IX , 1P?C 1S*6* IX* 2C 12 *3) PC = N 12C 

FORMAT! 1X1 * .. >Zc.H\l2l 

tNC »DEN 122 
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NAME 

POENl 

• . 

PUR FOSE 

TO PRINT INPUT SURFACE 

DEN'S IT ILS 

CAL LING S>;0 U. NC E 

CALL FOE Ml 


SUBROUTINES USE-0 

NONE 


COMMON BLOCKS 

SFFBLK TPEELK 

- ; ' 

INPUT FILES 

MCNE 

• 

OUTPUT FILE < 

I OUT - PRINTER 




2C 


IOC 


• . 




SUBROUTINE POEM 


»CLN 

I A 

IMPLICIT R£AL*o(A-H,C-n 


®D?.N 

IS 

KL/L DLAT .C LO N.CCN.AP3I G 


»CEN 

20 

IN *2 NLA T * NLCN 


>CLN 

21 

COfM-JN/S*** LK/SLATC67S) .SL0M6T5 ) .CLAT(67S I . CLCN( 675 ) . CCN < 6 75) • 

PL'SN 

2? 

• APSIG(t7S> .NLAT(c75> . NLCN ( -j 7 5 I . NS BLOK 

• 


23 

COMMON /TP- ELK /I NTF .1 CUT .ITAPJ-S (1C) 


P P£N 

2A 

N’L in-: C 


PC IN 

25 

IOEN2=C 


PC;N 

26 

CO 1 SC K— 1*2 



27 

iAJ ioO i-i .KSbLCN 

• ■ 

* CLN 

£C 

if(apsig( n .l::.o.u) gc tc cico*2C),k 


PCEN 

2<T- 

IF(<.-:q.2 >00 TO IOC 


POF.N 

3C 

NL INE S=NLIfJ:;5*-l 


PDiN 

31 

IF C M'JJC NLINL S.A5).tO.!> V.M Tf ( I CUT , 1 0 C G 1 


®CtN 

32 

IF < MOM NL I n. ; S *f> > • f; 0. I I WRITE ( I OUT ,1 3 03 ) 



33 

1DOJ 1 -I Z/Z N2 ♦! 


pofn 

3A 

IDLN2 = IDL M *NLAT< I I ♦NLCN (I )*-l 


9 DEN 

35 

KP*SL/itn 


PDEN 

26 

ICL=SLON( II . • 


»OEN 

37 

«P = < SLA 71 D-I CP) 460.00 


PC-EN 

20 

SL*( SLOM n-IOL) 46C.0C 



39 

IMP=SP 


»D:N 

AO 

IML-SL 


»OEN 

a: 

SP=C SP- IMP) 46 0.00 


PDeN 

42 

SL=I SL-IML) 460. CO 


»m*n 

A3 

fcN=NL\T( I ).*CLA7( I ) 


>DEN 

Ad 

C.-sNLMNI I I *LLCN(I ) 

• ' ■ • * 

®l-cN 

AS 

B S = SL ATI I >'• f»N * C * SO 0 


S»ptN 

A 6 

SksSL JN( l )-“£ *0*5DG 


»CZN 

A7 

CN=q ?43N ■ ’ 


Pfi'-N 

’ AO 

e? fc ♦£■ E 


PDEN 

AC 

IF(K. *0.1 I /.PI It f ICUT.ICC1 ) lOLNl *ir : N2 • I C P* IMF 

• SP. It L . IVL. S_ . 

3 CCN 

5 A 

• L LA T( 1 I ,-)LfM 1 > .NLAT { I J , NLUN ( I 1 • 01 M I 1 . APS 

igc 1 1 . pn. us. a? . ew 

®C.;N 

£1 

IFfK,.:.3 .2) V.PI T." ( ItuT , I •»€•;») irr.Nl • id'.ns .ITp. imp 

• SP. K'L . IML* S_ • 

®r“.n 

£2 

• 3LAT< 1 ) .U-DMI | « NL AT ( I } .NLCN (I) . 0:.M I > . PN, 

fc'C . C.K . Q \i 

3 C-_N 

53 

continue * 

# 

=>CCN 

5 A 

pltua.n 
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IOOC FORMA T< 1HI , S3X.27MSUFFACL DENSITY f LOCKS USECV 

« 17X* 22HC*:MTr.P C r MAST r« OLOCK ,?X , I bHS I 2j£ OF IN CR CM ENTS • 

• 3X*CHM.M'»:; A CF *6X #1 SMSUFF ac»: CHNMTY. 

• ex ,23HMA «Ti.p bLOCK B CUNC A F I C $/ 

• I 1 X* 2SH0c OC:~MM C LATITUDE t /ST L CNOITUTc # 3X , ?H{_ AT , £X * 3K_3N , 

• 5X«1 CHI NCAl.fU MS « 7X »5HV/ LUw #^-X . 5HS | CMA* 4X * i 2KMORTH SOUT H, 

• JX»4K AST.* 3X ,4H W" ST/ 

•* *X, CHE LOCKS, A X, 2 ( IX.iAHDLG t'h £ f CCKCS . 2X ) , £ t £X • 3FCtG. A X ) • 

• 2X« 3MLA T tZ K*SM LOS »IX *2 ( SX *9h( kC/ M* *2 J ) , A < 3X , !TH;.“ G* ] X ) > 

1C91 FORMA TC 2X,I3,3H TC, I & ,2 (2x,213*F7,5,lX},2(r£,£,lX ) t 1 X, Z 1 5» 1 P£1 8# 

• 5:i 2« 2, CJ>ac 7. n 

1CC2 c OSMA T( 2X . I 3*3M TC ,14 *2 C3X *2 ! 3 • F7# 3 , I X > ,2 ( F8 • 2* IX ) , IX* 2 IS, 1»F1 6 • 

• 2X,1 CHLM/O JUSTLC ,CP4F7, 1 > 

1503 FCRMAT(lX) 

£U0 


»0:M 

55 

®CiN 

56 

PDFN 

£7 

3 DEN 

se 

PCCN 

£<? 

3 r»'N 

6C 

3 TEN 

61 

3 C£N 

62 

PD*N 

63 

>C--N «- 

'e* 

=»t =N 

65 

3 £>£•'*! 

66 

3 0."N 

6’ 

3 C£N 

68 

3 C2N 

6 V 

PCF.N 

7C 
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: PLHOUT 

DESCRIPTION . , . 

Subroutine PLHOUT converts ’ an input Earth- fixed £* 

Cartesian station position and its associated Cartesian 
covariance matrix to the spherical geodetic coordinate 
system. 

T*he order of computation is: , ‘ 

• Compute the spheroid height, h, using an 
iterative procedure. 

• Compute the geodetic latitude <j>, and the 
east longitude A . 

• - • Compute the partial derivatives of <f>, A, and 

h with respect to the rectangular coordinates. 

• Invoke subroutine VCONV to convert the input 

covariance matrix. L 
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NAMf 

PURPOSE 


CAU1NC SCO Ur KC£ 

• ' stxML iyp:: 

S7AP OP 
C31- 


PLHOUT 

II TO COMPUTE orCCETIC PHI. L*M£DA. H FROM 
Gf.OCcNTPIC X. Y, Z 

£>• TO CCMF.UTE PARTIAL CERIVATIVLS OF GEODETIC 
■ COCRDI KATES WITH FCSPLCT TO CFOCENTRIC 
COCKOI NATCS 

CALL PLHCUT (STAP.XY23 I C, PLHS 10. PH I. L AMFDA. H) 
DESCRIPTION ' 

I NPUT - GSCCE'NTRIC X.Y.Z 


KYZSIG R 
C3.?> * 

INPLT - J 

PLH£!G R 
(3.:> 

CLTPUT - 

PHI DP 

> 

LAM«04 DP 

OLTFUT - 

OUTPUT - 

H R 

OUTPUT - 

SUSPCLTINiS LSiC 

DARCTN 

COMMON .BLOCKS 

I MOL K 

INPLT FILES 

NONE 

OUTPLt F ILF £ 

NCNE 

r-r-i RiKtt-: s 

•GiiCDYN . 
VOLUME 1 

SU&R OUT I NE PLHCUTtSTAP 
01 KrNSI CN PlH SI G( 3 .3) . 


CLTPUT - SIGMAS CN PHI, LAMECA • H 


VC C NV 


•. M a L*- 2 PHt-.LAH-OA .SINPHI .2T.H* .XYSO.T ,*:50. cSCl.TS,H2^r.SQSP.DA?C 
• A? «SU!>(3> .£PSC,CCNH,r-TXYSC 

COMFDN/lNl^ LK/Gl < ft) ,A*i .Al SC<2 J ,F LAT .G? <J J3 ) 

PEAL**i FLAT • 

DATA S--. LTA/.CC1 / 

C CALCLLAT CONSTANTS 

tso s pu-.i , ' - 

c£01 -C 1 • CSC—i. SO) ♦ *> 

: 10^=1 .t c- : sc; 

T*rS»)ASt»sPC 3 1 

>Y £0- 5Ti.r»C 1 ) * *?.+ S TAP (2 J * *2 # . 

c ITThATIV- fhtiCSU'- 1 . TCH HC1GHT 


■ »LHO 
»LHO 
TH * 3 L Hfl 
»LHC 
®LHO 
»IH0 
»LHO 
®CHO 
»LHO 
»LHO 
»LH3 
PLMO 
»LHO 
PL MO 


42 
A 3 
A A 

45 

46 

47 
4 ft 
45 

SO 

1 i 

S 2 

C -5 

£4 

£5 
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¥. . 


DO K J-l-25 

ZT=STAP(3)*T 

XY£0*ZT**2> ,S - ; V ” . 

£ 1 NP H l — 2 T /H 1 . 

ESC SP-S SC * S IN n H I 

H2=A"/G iOATt'l . CD0—3SCSP*SIKPMI ) ..../ . 

tl=H2*';£0£P * * * . 

1FCCA5M 1i- 1) .LT.CLLTA) GO TC 20 

10 i-u 

C WEIGHT 

20 

C GffOCET 1C LAT1TUW; 

. RT>Y£3 = CSCr K XYSO) 

PHlOATAN2( ZT .NTXYSCl * . 

C EAST LCNGITL&r 

LA*C;0*-CAFC TN( STAP<2> .STAP(1 11 
C CALCLLAT-- CONSTANTS = 0$ PARTI ALS , 

Z£0=STAP( 2) **2 
SP £0 = SI NPHI **2 
CO S°HI=L SCA T( ’ . CDO-SPSC) 

CONPht=? soi A <=: sci * *2 *x Ysa* zso) *pt<ys c> 
co nh = i . cr. c-r so*spso 

Ct*NH=CUNM O SOPT CCCNH) 

CCN««=-£ SO**L*r SCI *SI KPH I *CCS PH I / CGNH-ST AP ( 3 1 * CC5P HI/SPSO 
c PAR HALS OP Pt-I WITH PSSPiCT TC X.Y .2 
PAN TL( 1 »l S1AP11J »STAP(3) *CCNPt*I 
PARTU2 .1 1 =-STAP<2) *STAP13 J »CGt,FH 

. PARTU(3 .1 ) = XYSC^CCNPHI - . . 

C PAR1I/.LS 11" LAMIOA kITH PrSPSCT TO X.Y* Z 

partlu *2)=-*stac(2)/xysq 

PARTU2 ,?)s«TAP(l J/XYSO 
PARTLC 3 .?>=C. 

C PAR TIALS D- H WITH RESPECT TO X.Y. Z 
PAKTLt I .3 1 =Cf;NH *®AP TL (1 .1 ) 

PARTL(2 »3)sC0NH+PAP TL(2 »i J 

PARTLI 3 .3 > -CCJNH k TL(3 «! > C 0/S I NPHI 

C COMVcPT SIGVAS CN X.Y.Z TC SIGMAS GN PHI. LA MErCAt H 
CALL VCCNV( XYZSIG .FLHSl G .PAfiTL) 

RETURN 

. end : 


»LHO 

£6 

PLHO 

£7 

PLHO 

59 

PLHO 

£5 

PLHO 

1 0 

PLHO 

e: 

PLHO 

62 

• PLHO ^ 

<3 

PLHO 

6* 

»LHO 

65 

»LHO 

66 

PLHO 

67 

»LHO 

6e 

. PLHO 

69 

PLHO 

70' 

PLHO 

71 

PLHO 

72 

»LHO 

73 

PLHO 

7A 

PLHO 

75 

PLHO 

76 

PLHO 

77 

PLHO 

79 

PLHO 

70 

PLHO 

ec 

PLriO 

ci 

* , LMO 

td 

PLHO 

£3 

PLHO 


PLHO 

£5 

PLHO 

e* 

PLHO 

£7 

^ *LHO 

e® 

- r PLHO 

e* 

PLHO 

90 

PLHO 

9! 

PLHO 

92 

PLHO 

93 

FLHO 

9A 

»LHO 

95 



(entry ) 




calculate 

PAfcrxftLS OF tv 

wtth aspect 

To XY3 


YCOMV 
COMs/£KT 
orJ 

*Y2r TO 
&?<\x 
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NAME POLE 

PURPOSE TO SELECT FROM A TABLE FOR A GIVEN INPUT DATE THE . 

COQROINATF.S OF THE TRUE °OLE 

CALLING SEQUENCE. CALL POLE (XP. YP* DAY) 



SYMBOL 

TYPE 

DESCRIPTION 




XP 

OP 

OUTPUT - X COORDINATE 

OF THE POLE 



YP 

OP 

OUTPUT - Y COORDINATE 

OF THE POLE 



DAY 

OP 

INRJT - TIME IN DAYS 

FROM JAN O.C OF THE REFERENCE 



YEAR FOR THE ARC 


SUBROUTINES USED DJUL 
**' COMMON BLOCKS NONE 

INPUT FILES NONE 

OUTPUT FILES NONE 

REFERENCES • GE30YN SYSTEMS DESCRIPTION* 

VOLUME 1 - GCCDYN DOCUMENTATION 


SUBROUTINE P CL E(XP*YP , D AY I POLE 31 

DOUBLE PRECISION XP. YP. DAY. D.D JUL.DF IRST. OLAST POLE 32 

. Of MENS 1 ON X( 637 ) ,Y ( 687) . Xl( 1 17 ) . X2< 100) . X3( 1 91 ) ,X4( 2C9) , Y1 ( 1 17) . POLF 33 

• Y2(182).Y3(161).Y4(200) POLF 34 

EQUIVALENCE (XI ( 1 ) *X ( 1) ). <Y1 f 1 ) t Y( 1 ) ) ,( X2( 1 ) .XI I t 8) ) .( Y2U ) .YC 1 19 ) POL? 3 3 

• ),(X3( 1 1. X( 298) ) . ( Y3C 1 ) . Y( 290)) .( X4( 1 ) , X{ A 70) ) , { Y4{ 1 ) ,Y( 479) ) POL F 36 

C FIRST PCINT IS CN 17 SEPT 1957, JULIAN DATE 2436099.5 POLF 37 

C POSITIONS ARE RELATIVE TO THE MEAN POLE 0- 1900 0*5 POLE 38 

C THE INCREMENT BETWEEN POINTS IS 10 DAYS * PC1_F 39 

DATA XI/ PpLB 4 0 


X0-340.C .296. 

0.248, 

0 


l 99 

0.1 51. 

C 


103,0 


04 7, 

- 

01 5,- 


085 

- 


140 

— •17*?. POLE 

4 1 

X-*203*-.220, 

-. 227, 

- 


2 22 

- .2 32. 

- 


224 


212. 

- 

19 3,- 


1 66 

- 


1 3ft 

-.104 , POL r 

42 

X-.C71 .-.036. 

C. 002, 

c 


0 42 

0 .002, 

0 


l 1 9.0 


163, 

0 

194,0 


215 

0 


245 

0 . 27? .POLE 

4 3 

XO.2C0.C.327, 

0.35 3. 

c 


3 74 

C .39 1, 

0 


4 0 A , C 


339, 

0 

36 0.0 


323 

c 


201 

C.234 .PULE 

a 4 

*XO.I 86.0 .1 33, 

C. 3 SC, 

0 


C 27 

- .026, 

- 


068.- 


102, 

- 

124,- 


1 4 3 

- 


157 

-.16° .PTLE 

#5 

X— • I 75 .-.174, 

-. 169, 

- 


1 61 

-.151. 

- 


1 33,- 


123, 

- 

104,- 


033 

- 


06 0 

-.033 .POLE 

46 

X-.C02.C . C 3 3 , 

0. 074, 

0 


1 17 

0.169, 

r_ 


221,0 


26 6, 

0 

299.0 


319 



32 3 

C • ? 2 3 , POLE 

a 7 

X0.3I3.C .309, 

C. 296. 

n 


277 

0.255. 

n 


227, 3 


106. 

•0 

16 3,0 


134 

c 


10 5 

C • 0 76 , orx*=- 

Ap 

X0iC48.0.0?0, 

-.006. 

- 


0 24 

- .056. 

- 


07?,- 


036, 

- 

065,- 


101 

- 


1 01 

-.lC' .POLE 

4 9 

X-.C99.-.C96, 

-. 0 9 1. 

- 


0 01 

-.06 8. 

- 


050.- 


010 . 

- 

003,0 


012 

c 


03 2 

0.05? .POLE 

50 

XO <. C 69 • C .086. 

C. 102, 

0 


1 18 

0 o 1 3 2. 

0 


145,0 


145/ 







POLF 

01 

DATA X2/ 


















pri E 

B? 

X .143. .147, 

. 14 7, 



l 47 

.14 2. 



142. 


141, 

ft 

140. 

. 

1 38 

ft 

ft 

135 

. • i 3i ,pm r 

63 

X .127, .123. 

* 1 1 8, 



1 11 

• 1.0 1. 



0 00, 


0^5, 

ft 

064, 

• 

0 5 5* 

ft 

ft 

046 

, . 0 37 , POLF 

54 

X .028. .019, 

. Cl 1. 



003 

- .003. 

- 


000,- 


01 2. 

ft 

015,- 

• 

019 

« w 

ft 

021 

. 024 ,P()LF 

55 


8.0-387 
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X-.027,-.029,-.03l. : -.0 23,- 

-.031. -.025, -.01 5.- 

■ . 0 1 0 . 

.002. 

.014, 

•026, POLE 

56 

X ,C38. 

.050, 

.0 62* 

.076. 

• C 9 l » 

.105. 

.119. 

• 131. 

.14?. 

• 152. 

. 1 61 .PCLF 

57 

X .160, 

.176, 

. 1 8 1. 

• 1 63. 

.179, 

. 171 , 

• 161. 

. 150, 

.130. 

. 124 , 

.100 , PCL P 

5 P 

X *091 » 

.073, 

• 0 54, 

,o:.?, 

.00 9, - .014, - . “)3 6,- 

-.056.- 

-.060. -.000, -.09« ,°OL5 

5° 

X — * 1 1 2 » -• l 12.- 

-. ICF. - 

-• 1 00,- 

■ .088, - 

- .073,- .055.- 

03 2,- .004 , 

. C27, 

.058 .prt-E 

ec 

X •080. 

.117, 

.143, 

• 1 67, 

.185, 

. 208. 

.225, 

.230, 

• ?46, 

.249. 

. 247 .POLE 

f i 

X ■ 2 40 * 

,227,. 

. 207, 

. 1 80. 

.! 47, 

. 1 C 9 , 

.757. 

,023,-,;i9,- 

-.057,- 

-.09? , PPL C 

6.7 

X-. 122.-. 146.- 

-. 16 4, — . 223, — .24 7,- 

- . 26?,- . 272,- 

273,- .265.- 

-.240,- 

-. 2?8 , POLE 

6 3 

X-,202,-.i71r 

-. 137,-. 1 03,- 

- .075,-, C46.-.013. 

.Cl 2 • 

• 149. 

.009, 

.1 20 .POLE 

.64 

X • 1 63 « 

.1 39. 

• 2CO. 

.224, 

.235, 

. 240, 

.236, 

.22 0, 

.217, 

. 202 . 

•187,P0L P 

65 

X .157. 

.123. 

.085, 

. 0 40, 

.018,- 

- .010.- .0 30,- 

-.070.-.1 05*-. 146,- 

-. 1 76 .r'C-LT 

66 

X-.l 97, -.209.- 

-. 217, — » 2 £5.— .228. — .227,- 

-. 219,- 

-•204.-.1 06.- 

- . 165 .-.14? ,D0Lt 

67 

X-.l 17.-.D33,- 

-.C52. -• 0 14, 

• 024, 

.062. 

.099, 

.132* 

. .150. 

.176. 

.185, POLE 

60 

X .192, 

.197, 

. 200. 

. 199/ 







POLE 

69 

DATA X3/ 









POLE 

70 

X .195, 

• 1 36, 

.167, 

• 1 47, 

• 126. 

.102, 

.076, 

.049, 

.0 20.-. 0! 2 .-.043 ,°01_e 

71 

X-.C70.- 

-,092. ■ 

-• 107, ■ 

-.12?,-. 13 8. - .164,-. 169, -.175.- 

- .1 73,-. 165.-. 1 53 ,PHL5 

72 

X-.141 .-.126.' 

-. ioe. 

-.089. -.059. -.048,- 

- .02 7.- 

-.007. 

.013, 

.032 ♦ 

.n4Q f DOLE 

73 

X .065, 

• 081, 

.098, 

• 1 13, 

.124, 

. 127, 

.125. 

.121 . 

\l 12, 

.097 • 

,001 , °OLC 

74 

X .067, 

.056, 

• 046. 

.0 24, 

.022. 

.010, 

. 000,- 

-.CIO, -.020,- 

-.C?7»-•C2' , . p CLr 

75 

X-.C21 , 

-.02 2, 

— , C 22. 

-.023,- .0 23. 

-.021 • — • 0 1 9 » - • 01 7. — .313,-, CO 9, — , OCT ,PCL C 

76 

X • 008 , 

.004,' 

-.0 0 3, 

-. 007,- 

- .009. . 

-•Cll .■ 

-.01 5. -.021 .-.022 .-.015.— .015, POL 5 

77 

X-.C 14, 

-.GC9, 

-.004, 

0C6,‘ 

-.006* — .CC6,- 

- .004. 

. 0 C 0 « 

.004, 

.007, 

.COP, POLE 

76 

X ,9 11, 

.0 14, 

.018. 

.022. 

.020. 

.037, 

.047, 

.055, 

.062, 

. 060, 

.071 ,PCL p 

70 

X .C 79 , 

.082. 

,080. 

.0 71 . 

.059, 

• 046, 

.037. 

.03 1 . 

.0 24 , 

.003.' 

-.014 

30 

X-.C37, 

-.968. 

10 1, 

1 24 , 

-.146, 

-.149,' 

! 40,. 

-.1 57,' 

-.119.' 

- .C90. 

-.070 , POL" 

t\ 

X-.0t>2, 

-.0*3. 

-. OJ4, 

— » U 26, 

-.014, 

- a 00 t « 

• C 1 4 • 

• 05—, 

• 0 4 6 * 

• 06 2 * 

• cs; , ~7L“ 

8 2 

X .099, 

.170, 

. 1 J 4. 

.14/’, 

• 152, 

. 151. 

mlJtr, 

• 1 2 e , 

• C 54, 

. Or v • 

• 065 • P ih_ z. 

*» ~y 

X .050 • 

.039. 

.029. 

.021 . 

.004, 

-.020. 

-.“44, 

- .074. 

-.103.' 

- . 129 , 

-.15} .POLE 

P 4 

Xr- 165. 

-.174, 

-. 173. 

-. 1 61, 

-.135, 

-.119, 

-.109, 

-.1 Co.' 

-.101. 

00 9 »• 

- • C 7 1 , ° r L c_ 

00 

X-.051 . 

-.029. 

.017, 

• C 55 . 

• 02 8, 

. 1 19, 

.145. 

.160. 

• 1 86. 

.199. 

.2 07 ,PCL p 

P6 

X .209. 

.205. 

. 159, 

• 1 51 . 

.183/ 






POLE 

o 7 

DAT A X4/ 









POLE 

8 0 

X .160. 

.120, 

• 078, 

.049. 

.024, 

• COO. 

- .029, 

-.057. 

- .035, 

-.111. 

-.133 .POLE 

«9 

X-. 152, 

-.174, 

-. 1 90, 

- . 209. 

-.216, 

-.21?, 

- . 20 C . 

-.15?, 

-.183, 

- . 170 ; 

-. 1 5t- ,DPLE 

O* - ' 

X-. 129 , 

-.104, 

-.061, 

.0 02, 

• C 60, 

. 103, 

.140. 

.170, 

.193. 

. 224 . 

.245 , PCL p 

51 

X .2S9t 

• 263, 

• 264, 

.252. 

.229, 

. 2C3. 

.1 79, 

• 1 5 7. 

.135. 

• 109 • 

.007 .POLE 

92 

X .055, 

.022. 

-.014, 

-.052. 

- .083, 

- .107, 

- . 127/ 




P0L c 

93 

DATA Yl/ 









POL* 

94 

Y0.C57, 

0 . C 2 9 , 

C. CO 1. 

-.C 25. 

- .045, 

-. 058, 

- .068, 

- .075. 

- . 377, 

-.073 , 

- .C61 . POLE 

98 

Y-.C44 , 

-.012. 

C.C29. 0.0 74. 

0.127, 

C. 104, 

0.239. 

C.2S4, 

0.320, 

0 . 372 • 

? • 407 . POL r 

96 

VA /*■>*. 

C>4 4 1 . 

0. 4 5 7, 

0. 467, 

0.473, 

0.471. 

0.463, 

C.461 , 

0.43C . 

0.398 , 

C .365 , °rt E 

07 

Y0. 225 , 

0.28 1, 

0.251. 

0.219, 

0.167. 

0.133. 

0.082. 

0.04 7. 

-. :o 2 . 

- .030 • 

- .065 , P TLE 

58 

Y-.C76, 

-.0 93, 

082, 

- • 0 79 , 

-.0 71, 

- . 060 . 

-.047, 

-.03 C. 

- . CO 7 » 

0 . 01 o. 

0.05: .POLO 

90 

Y0.C83, 

0.119. 

0. 157, 0. 1 O'*. 

0 . ??5. 

C*. 262. 

0 . 70 3. 

C. 321 . 

0.347, 

C.367, 

C. 3 4! • PPL" 

ICO 

'YO.304 , 

0.331 , 

C. 376. 

C . 3 66. 

0 .349, 

C . 325, 

0.296. 

0.271. 

0 . ? 5 1 , 

0. ?33 . 

0.215 ,pa = 

1 C 1 

Y0.197, 

C.l 79, 

C. 159, 0. 1 27. 

0.115. 

C. 055. 

0.076, 

0.070. 

0.356. 

0 . C44 . 

0.034 , Pp L p 

10 2 

YO.C 23.0.C 28 * 

C. C33, 0. 044, 

C .0 55, 

0. C79. 

0. O°0. 

C. 1 16. 

C.l 23. 

C. 140, 

C. 1 65 . POLE 

"C 3 

Y0.179. 

C . 1 9 2 , 

0,204, 

C . 2 16 , 

0.22 8. 

0 . ?42, 

0.-75 7. 

C . 271 , 

0.703, 

C. 293 . 

0.301 .PCL 1- 

" Ci 

Y0.305. 

O . 3 0 5 , 

0. 30 3. 

C . 2 59 • 

0 .294, 

0 , 284. 

0.-271/ 



POLE 

' C- 0 

OAT A Y?/ 







# . 


POLE 

' C 6 

X .252. 

.235, 

.22 l. 

.209, 

.2 10, 

.159, 

.1 08. 

.177. 

.164, 

.149, 

.1 34 .POLE 

' C 7 

X .1 21 . 

• 110. 

.10 1. 

.099, 

.099, 

. ICO , 

.* 04 • 

.110. 

• 110, 

.12 8. 

.14 r , PPL" 

, £ o 

X .354, 

.1 70, 

. 107. 

* 2 C3 » 

.20 7, 

. 2 1 C • 

. 21 3, 

.215, 

.717, 

. ?1 9 , 

.225 , POLE 

.no 

X .221, 

.222. 

.22?, 

. 2?3 , 

,r^5. 

. 230, 

.230, 

*250* 

• 267. 

. 2^3 , 

. .?77.Pr,L c 

1 1 0 

x .rot. 

.2 05, 

. 23 9. 

• 2 £9 * 

.207, 

. 263, 

. 276. 

.267, 

.2 57 , 

. .245, 

, .235 ,pCL c 

1 1 l 


8.0-388 
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X 

•217* .202. 

• 185, 

. 1 65, 

.142, 


121 , 

X 

• C67* . C 6 P. 

.071, 

.073, 

• 090* 


106. 

' X 

• 259, .279. 

.29 • 

.307, 

.318* 


328, 

X 

• 344* 





333. 

X 

•197, .172. 

.147. 

. I 22. 

• 09ft, 


070. 

X-.C28.-.C 17.- 

.003. 

.0 16, 

• C 4 0, 


068, 

X 

•253* .259., 

• 32S. 

.359. 

*390, 


417. 

X 

• 472, .467, 

• 4 6C. 

.4 46. 

,424, 


394, 

X 

•199, ,155, 

.136. 

.111. 

.092, 


C 74 , 

X 

• 0 57 * ,062, 

.075. 

.094. 

• 1 20. 


150, 

X 

•349, .333; 

.4 10. 

, 4 25* 

.44 1. 


454. 

X 

•401, .377, 

.350. 

*323* 

• ?99, 


275, 

DATA Y3/ 






V 

• 192, ,153. 

• 137. 

. 1 17, 

• 101. 


987 , 

Y 

*063. .074, 

. 087, 

. 1 04. 

.1 24, 


149. 

Y 

•295, .304, 

. 322. 

.340, 

.3 56, 


361 . 

Y 

•346, ,341, 

. 332. 

.3 16, 

• 294, 


273, 

Y 

•175. .169, 

. 167, 

• 1 65. 

.164, 


I 64, 

Y 

•193. .200. 

. 202, 

• 2 04, 

• 2C 6. 


210. 

V 

• 210* .207, 

. 2C 3* 

.204. 

• 207, 


209. 

Y 

*256, .265, 

. 27 C* 

. 2 72. 

.274, 


276, 

Y 

•254, .254. 

.256, 

.253, 

.25 0, 


236. 

Y 

•174, .160, 

• 165. 

• 1 62. 

. 1 60, 


1S«. 

Y 

• 133, .139. 

. 156. 

. i eo. 

.215, 


238, 

1 r 

.323. ,337, 

.350, 

♦ 360. 

.3 68. 


3 72. 

Y 

.332, .317, 

.30 0. 

.273, 

.241. 


203. 

Y 

.103. .105* 

- 10 % 

. 1 C2 . 

1 ^ ^ 


106. 

1 • 


.090. 

• 3 Z- « 

• 3,<w« 


3 71. 

Y 

• 444, ,U6, 

« A4 ft. 

• 4 42. 

.426. 


402. 

Y 

• 213, .133. 

.155, 

• 1 £5. 

.101/ 

‘ 


DATA Y4/ 






V 

• C 78 * .063, 

* C5 3, 

.0 29. 

• C 2 3, 


013, 

Y 

.117, .148, 

• 179. 

.211. 

.253. 


301 . 

Y 

•480, .505, 

.519, 

.524. 

.520, 


500, 

Y 

*317, .293. 

. 249. 

.211. 

. 1 75. 


139. 

Y 

• C 48 * • C 3 5 , 

• 02 6. 

.0 27, 

.034, 


C5C. 


C FIRST PCI NT 579917 *** LAST POINT 711204 
DATA DF1PST/2436C99.5CC/, 

• CLAST/ 54 41379 .500/ 

LOGICAL FPSTME/.TPUF . / 

IF( .NOT.F PSTVE ) GO TO 20 
-.FRSTM£ = .FALSE. 

IN= COLAST — OF IRST )/ 10 . CG+1.D0 
OO 10 1 = 1 . IN 

. XU J=X ( t > *0 .4348 137E-5 
V<I )=Y< I ) *0 .40 43 137E- 5 
10 CONTINUE 
*20 CONTINUE 

D « O J'JL (DAY) 

IFCO .GE. OF IRST J GO TO 30 
. XP * X < 1 » , 

vp = v m 

• RETURN 
30 CONTINUE 

IF {D *LT. CLAST) GO TO AO 
KP = X (I Nl 


• * 


.105. 

.093. 

• 083. 

.075. 

.070 .POLE 

1 1 2 

• 127, 

.15 3. 

.181. 

• 207. 

.211 . POL e 

’ 1 3 

.337, 

.344 . 

. 349, 

. 351 • 

• 35C .POLF 

1 14 

.317. 

.297, 

.272, 

.247, 

. 22 ? .POLE 

1 1 6 

• 044, 

. 020 .- . 001 .- 

• 01 7,- 

. 02 * . nrt_= 

1 1 6 

• 101 , 

.134, 

• 1 62, 

. 190 ♦ 

. 220 , POL F 

1 17 

.443. 

-46 3. 

.470, 

.432* 

, « 7.4 , POLE 

1 1 6 

.35 0. 

. 32 0, 

.301 . 

. 27 0 . 

.233 . D CLF 

1 19 

.059. 

,CA 3, 

• 052. 

• 054 • 

.055. PPL p 

1,20 

• 180. 

. 211 . 

• ?45, 

• 281 » 

.315 . PPLr. 

i ?i 

.465. 

.41 

.460 . 

• 448. 

.425 • PCLF 

1 22 

• 249, 

. 222 / 



P<XF 

1 23 





POLE 

1 ?A 

.073, 

.061 ♦ 

iOfU. 

. 052 . 

• C54 . POLE 

125 

. 177, 

. 202 . 

. 223. 

• 243. 

.263 .POLE 

126 

.361. 

.36 1 . 

, 353, 

• ’64 . 

. 3 50 . POLE 

? 2 ’ 

.254, 

.235, 

. 220 . 

• 206 • 

. 1 90, dole 

128 

.166, 

.16 9. 

.173, 

• 177, 

. 1 83, POLE 

1 29 

.216, 

. 220 . 

*. 2 ? 2 , 

• 216, 

# 21 * .PnLE 

*30 

• 212 . 

.219, 

.232. 

.245 , 

.25? .PELT 

1 31 

.2’3. 

.269, 

.363, 

.261 . 

.268 • PflLr 

1 3? 

. 220 , 

.208. 

.1 98. 

• 1 68 . 

•ISC, POLE 

,32 

.15 1. 

.1 16, 

.141 , 

• 12 3. 

.1 30 * PPL F 

1 34 

.261, 

• 2 s 2 • 

.297. 

.307, 

• 31 ft .POLF 

1 3 5 

.373. 

.371 . 

.345. 

.357 , 

, 346 , POLE 

1 3 6 

.173. 

.147. 

.125. 

• 116, 

.111 .POLE 

I 37 

.11 4. 

.12 5, 

.125. 

.14 6 , 

« 1 "? c ♦ n CL F 

1 73 


• 

* “8 4 W t 

* * 

• tH A • 

• 4* 1 r mL r 

• t 

.373, 

.34 2, 

.109, 

• 276 . 

,24t,pnL c 

1 40 



' * 


POL? 

141 





POL £ 

! 4 p 

.‘013. 

. 022 . 

'.035, 

• 057 , 

• 0R5 , PPL* 

143 

* 3 4 C » 

.370* 

.397, 

. 424 . 

. ft 6? .PPL? 

144 

.476. 

.*59. 

.421, 

. 337, 

• 351 ,r>OLr 

1 4 5 

• tie. 

.10 3, 

.092. 

• 078* 

• 06? , POL F 

146 

• 074/ 




POLE 

147 





POLF 

1 4 H 

' 




POL* 

1 49 





POLE 

150 





POLE 

?51 





POLE 

! 52 





POLE 

1 53 





POLF 

1 54 





POLE 

155 





POLF 

1 5ft 





POLE 

1 57 





POL* 

158 



-• ... 


POLF 

1 59 





POLF 

! 6C 


r 



POLF 

1 61 



• 


POLF 

1 62 





POL* 

163 





ppLr 

i 64 





POLF 

1 63 





PPL* 

! ftft 





POLF 

167 


8.0-389 




VP s YC IN) 

RETURN 

40 continue 

D=CO-OF19ST)/1C *CDO+ 1 *000 
INTERPOLATE FOR COORDINATES OF THE POLE 

10 = D 

I0P1 =10+1 
Ol»0-nFL0AT{ IDPi ) 

02=D-DFLC? AT C ID ) 

YP = -OI*Y<lC) 4- D2*Y(IDP1) 

XP a -ni‘x'lIO) + D24XIID°1I 
RETURN . 

END 
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POLE 

POLE 

POLE 

POLF 

POLF 

POLE 

POLE 

POLE 

POLF 

POLE 

PILE 

POLE 

POLE 


Of 5 
1972 


16* 

*6* 

170 

171 
17 ? 
173 
17* 
175 

17 * 
f 77 
; 7e 
179 
1 AO 


(0:1. H.) POLE 

. Page 5 of 5 

61, Ater.uc de l‘Qbscn<itoire October 1972 

*5 • PARIS Mvrr.e 

Cif'tUlflk.r 


1 - UNIVERSE TIME AND COORDINATES OF THE POLE 


Date 

J.D. 


smoothed value 

s 

raw values j 


(Oh UT) 

2400C00.5 

/ x 

y . 

UT2-UTC 

UT1-UTC\ 

X 

y 

UT1-UTC ! 

UT I 

1972 

+ 

.OVCOl 

ovcoo. 

0.0001s 

O.OQCls 

OV 001 

C'.'OOl^ 

’o.ocois : 


June 1 

41 469 

-145 

+356 

-5252 

-5553 . 

-151 

+341 

-5541 

^-1C. 

6 

474 

- 134 

+366 

-5416 

-5710 

-129 

+371 

-5743 


11 

479 

-120 

+376 

-5579 

-5861 

-114 

+359 

-5372 


16 

484 

-105 

+385 

-5740 

-6006 

- .92 

+374 

-6019 

« 

-21 

4S9 

- - 89 

+394 

-5899 

-6145 

' - 92 

+421 

-6165 


26 

494 

- 72 

+402 

-6057 

-6279 

- 51 

+382 

-6263 


July 1 

499 

- 54 

+409 

+3786 

+3591 

- 58 

+407 

+3616 

l 

1 AT -UTC 

is exactly 

10s in 

June 1972 


i 

• 




IAT-UTC is exactly 11s since 1972 July 1st, Oh UTC. 


2 - EMISSION TIME OF TIME SIGNALS, for June 1972 (E = UTC-Signal in O.OCOls) 


Signal 


E 

Signal 


E 

Signal 

E 

CHU 

; 

0 

FTH42, FTK77j 

FTN87 

0 

NSS (o.c.) 

+ 9 

BAH, D AM, DAO 


0 

HEG 


0 

OLE 5 

(2 

BCF77 


0 

IAM 


0 

GHA 

(2 

DGI 


0 

IBF 


+ 3 

PPE 

• 5 

DIZ 

*. . ■’ " 

0 

JJY 


0 

RWM (1) 

0 

FFtf 


0 

LOL 


- 5 

VNG 

0 

FTA91 


0 

MSF 


+ 1 

WWV, WWVB, WWVH 

0 

• 

* 


GBZ (3) 


- 3 

ZU0 

(2 

(l) and other 

signals 

from 

USSR 

(2) 

no data 

available 


(3) corrected 

values 

: April 1972, E = - 3 

; May 1972, E = 

- 2 

* 


3 - COORDINATED UNIVERSAL TIME (approximation UTC(i) of UTC, kept' by the laboratory 

Ref* CCIR Rcccmmendat ion 4.58, 1970) 

a - From LOR AN- C and Television pulses receptions 


Date 1972 

June 11 

J.D. 2400000.5 + 

4l 479 * 

Laboratory i , 

- - . 

* 

PTB (Braunschweig) * 

+ 

2.9 

USNO (Washington) 


6.6 

CP (Paris) 

+ 

1.6 

KBS (Boulder) 

■ ~ 

2.4* 

ECO (Hcrstmonceux) 

+ 

3.2 

SRC (Ottawa) 

+ 

O.C 

FOA (Stockholm) 

+ 

23.9 

PHI JtHrmhurg) 

.. 

16.9 

CM O' '}tcl> 

+ 

20.6 


June 21 • July 1 

4l 489 4l 499 

UTC-UTC(i) (unit : 1 p.s) 

+ 2.9 
- 6.2 
;+ 1.6 

- 2*7 
+ 4*4 

+- 1*2 
+ 28.6 

- 13.9 

+ 20.6 P- T. 


+ 3.0 

- 6.5 
+ 1.6 

- 2.5 
+ 3.6 
+ 0.9 
+ 26*3 

- 15.3 
.* 20.7 
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KAME 


POSVEL 


PURPOSE 


TO CONVERT OSCULATING OR51TAL ELEMENTS 
POSITION AND VELOCITY VECTORS 

CALLING SEQUENCE. 

POSVEL I XYZ. AEI .IDRAD! 


SYMBOL 

TYPE 

DESCRIPTION ‘ ' 


XYZ 

C6> 

DP 

OUTPUT - CARTESIAN ELEMENTS 

AEI 

I6J 

OP 

INPUT - KEPLER ELEMENTS 


IDRAD 

* I 

INPUT - — 2 MEANS INPUT IN 
=1 MEANS INPUT IN 

RADIANS 
OEGREFS » 

SUB ROUT IN 

ES USED 

NONE 



CCMMON ELOCXS 
IfcPUT FILES 
OUTPUT FILES 

BPPFOFMrc? 


CONSTS INTBLK 

NONE . 

NONE 

• fipritirN <v$tp m 9 OESro I otihm* 
VOLUME l - GEODYN DOCUMENTATION 


SUBROUTINE POSVELlXYZ .AEI • IDRAD > 

IMPLICIT REALMS (A-H.C-Z) 

REAL RM5TOT 

OOUOLE PRECISION I NCL .MEAN* NOD E 
DIMENSION AEI (6) .XYZ ( e> . AEINP4( 6) ,XY7XYZ< 6) 
COMVON/CONSTS/PI .TWOP I.PAO.RSEC 
CCMVCN/INT PLK/TH03TS { 3) AFC 62 > 

EOUIV ALENCE (A. Ac I NPMU )).(c. AE INPV{ 2) ) . < I NCL *AEIN°M( 3} > . 
• # INUU=. AEINPMC 4) J, < P, AEINPMI 5 > > , { MF AN, AF |N*»w ( 6) ) • 
IX.XYZXYZU ) ) • ( V. X YZXYZ( 2) ) . ( 7 ., XVZXYZ ( 3> ) . 

• ' f XOOT, XYZXY7 (4) 1 , ( YDOt , XY7XY7. ( 5>> » < ZDGT, XYZ XYZ (SI) 

c OEF-INE CONVERSION CRITERIA 
. DATA DcLT 4/0 .ID-ID/ 

SCALE=I .CDO 

IFCIORAO.Ea.l) S CALE= RAD 
DO 10 1=1.6 

AEINPM{ DsAEIdl * 

IFf I.LE.2) CO TO 10 
AEI NPM( n = AEI { t >*SCALE 
10 COr.T I NU'E 

S0VUA=PS0RT (CM/CABS< A >?*3 ) , 

E2 = E* *2 

0NFME2=0SQKT CCAf)S( 1 .CC0-E2) ) 


POSV 

33 

POSV 

?4 

POSV 

35 

POSV 

36 

POSV 

37 

POSV 

3B 

POSV 

?Q 

POSV 

AO 

POSV 

41 

POSV 

4 2 

POSV 

A 3 

POSV 

4£ 

POSV 

45 

POSV 

46 

POSV 

47 

POSV 

A {* 

POSV 

A O 

POSV 

50 

POSV 

SI 

POSV 

52 

POSV 

53 

POSV 

54 

POSV 

55 


8.0-392 
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C SINES AND COSINES OF THE ELEMENTS 
COSI=DCn$ I INCL > 

5IM=DMN( INCL ) . • • - 

SlNN=OSINC NODE) 

COSN=OCOS ( NODE) : 

SI N D =DS I N ( P > 

cosp=ccns ( p)‘ 

C SET ECC* ANOM • EQUAL TO MEAN ANOM. FOR FIRST APRDX, 
ECC=MEAN . 

C ITERATE 

IF <E2 • GE • I • CDO ) GO TO 150 
C •••FOR ELLIPTIC CR9ITS 
DO 100 J=1 .50 
EOO-ECC 

SINECCsOS IN(EOO) : 

COSECC-OCOSI EDO ) * 

ecqsfi .'ooo-e*cosscc 

ECC*EOG-( EGO-E*S IN EC C -MEAN)/ ECO S 
JFIDABS (EOO-ECC) .LT .DB.TA ) GO TO 200 
100 CONTINUE 

PRINT 1000 
GO TO 230 

C •••FOR HYPEOOnciC ORBITS 

160 DO 160 Js 1,100 * 

EOO=ECC 

SINECC=OS I NH(ECO) 

CnSfcCC=OC')SH<EUU i 
ECOS=£*CUSECC-l .000 

CCC-EOO-(F*SlNECC-EOO-MeAN>/ECOS 
IF ( CABS ( F CO-£ CC ) • LT « OELT A > GO TO 2C 0 
160 CONTINUE * 

PRINT 1003 
200 SPCN=SINP*C0SN 
CPSN=COSP*SlNN 
CPCN=COSP»CCSN 
5PSN— S I NO * S I NN 
A2=CA8S ( A)*CNEME2 

AX=A*<C»CN-SFSN*COSI ) •. 

AV=A* <SPCN*CCS I + C= SN ) 

' ‘ AZ=A*Sl N° * S INI 

.• iSPCN+CPSN*COS I > 

BY— A2* ( CPCN*COSI — 5PSN ) 
cz=a2*cosp*s ini 
- C— C CS ECC - F. 

EDCT=SOMU A/ECOS 
C ••'•FOR X, Y, 7 

X®AX*C+B<*SINECC ■ 

Y«AY*C+BY*SINECC . 

Z=AZ*C+HZ*SINECC . 

c •••FOR XDnT.Y0CT.700T 

IF <E2.GE. 1 .COO ) S INE CC=-SINECC 
* XnCTsFDOT* (Ox*COSECC- Air*S INECC ) 

YOOT = C.OOr * CRY* COSGCC “ /Y*S IN’^CC > 

zooT=cr>nT « ( cz* cor^cc - in see > 

DO 300 1-1.6 
300 X Y 7 ( t )=X¥ ZXYZ( n 
RETURN 

1000 FOPMATf 1HI , 31HCCCENT R tc ANOMALY NOT CONVERGED! 
END 


POSV 

56 

POSV 

57 

. POSV 

58 

POSV 

S>9 

POSV 

60 

POSV 

61 

POSV 

62 

. POSV 

63 
*'6 A 

POSV 

POSV 

6 5 

POSV 

66 

POSV 

67 

POSV 

6 a 

POSV 

69 

POSV 

7 C 

POSV 

71 

POSV 

72 

POSV 

7? 

POSV 

7A 

POSV 

75 

POSV 

76 

POSV 

77 

POSV 

78 

POSV 

70 

POSV 

8C 

POSV 

s» 

POSV 

62 

POSV 

63 

POSV 

«A 

P05V 

R5 

POSV 

B 6 

POSV 

87 

POSV 

BE 

POSV 

80 

POSV 

9C 

POSV 

91 

POSV 

°2 

POSV 

93 

POSV 

9* 

POSV 

95 

POSV 

96 

POSV 

97 

POSV 

98 

POSV 

90 

POSV 

1 00 

POSV 

101 

POSV 

102 

POSV 

'03 

POSV 

i ca 

POSV 

05 

POSV 

'06 

pnsv 

107 

POSV 

1 C A 

POSV 

1 CO 

POSV 

1 I 0 

POSV 

! 1 1 

POSV 

’ 1 ? 

POSV 

' 13 

POSV 

1 * 
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• PRECES 

DESCRIPTION 

Subroutine PRECES- generates the rotation matrix 
to process a vector from the mean equator and equinox 
of an input date to the mean equator and equinox of 

1950 . 0 . 

The precession angles are evaluated using 
•polynomials derived by Simon Newcomb. The rotation 
matrices are evaluated by ROTMAT ; the output rotation 
matrix is computed as the product of the three input 
matrices by MULMAT. 



10 


20 

30 
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. « 


name 

PURPOSE 

CALLING SEQUENCE 
SYMBOL TYPE 
DAY qo 


PRECES 


TO GENERATE THE matrix cn=> nnf/.r 

EOUATOP and equinox op a E p 0 : \ S n S,0N F * 0M MEAN 

ANO EQUINOX OF J Q 50 E °'* H T ° M "’ AN EQUATOR 


CALL PRECESfDAY, X > 
DESCRIPTION 


INPUT 


tire in days from jan 
YEAR 


C.O 


OF 


reference 


X OP 

<3. 3) 


OUTPUT - PRECESSION MATRIX 


■subroutines USED 

COMMON blocks 
INPUT FILES 

cyr put files 
References 


r of mat 

I NIT BK 

NONE 

NOSE 

•GEDOYN 

VOLUME 


mulmat YMOAY 


SYSTEMS DESCRIPTION* 

1 - GECCYM DOCUMENTATION 



SUBROUTINE PRECESCDAY.X) ' 

**^AL*8 r )4Y,Cf , AS r .D.)f f i *. , 

REAL*8 C0EF <3 .3}/, # 30i^3204^5O , r ,A ^ GL " ,YM:>AY 

Ax, s , 3 ,, s :;”r 8M84M0 - e ** : “’^ 

SK'S ’^ tGUS3, ’ N0T,ST - I «'=>' 

IF { NOTl ST ) CO TO 10 
NOT IST=«TRUE. 

5 1 50C 1 03 • 0 • - . 0 7 2no 

W 30 1=1,3 

, ANGLcssO.Do ■. '■ 

00 20 J = : , 3 \ ' 

r^, 6L ^ <ANCL ^ COEF(A ’ J - I >>*o 

CALL ROTMATt ANGLE. AX I S( I } ,z< 1 , T ., 

CALL VUlmatIx, Z( 1 i l,l,ni 

return * * } * z< 1 * 1 * 2 * • 7 { ' • 1 • 1 J ) 

END 1 


PREC 

31 

PPr C 

32 

PP^C 

3 ? 

PPP c 

34 

PRFC 

35 

PREC 

35 

PREC 

37 

PPEC 

38 

PREC 

39 

PPEC 

40 

PREC 

4J 

PREC 

42 

PPEC 

43 

PPEC 

4d 

PREC 

45 

PREC 

45 

PPEC 

47 

PRFC 

48 

PPEC 

40 

PREC 

so 


8.0-396 
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‘ ^ ' PREDCT - 

DESCRIPTION 

Subroutine PREDCT computes the residuals and partial 
derivatives for observations involving fewer than two track- 
ing stations for the parameter estimation. In addition, 
PREDCT predicts the measurement values from a priori data 
and the geodetic spherical coordinates of the satellite. 

The observation types by program index number are: 

¥ 

* 

1) right ascension and declination 

2) .range (including sat-sat summed range) 

3) range-rate (including sat-sat summed range rate) 

4) •altimeter height and height rate 

5) l and m direction cosines 

6) X and Y angles ' 

‘ . 7) azimuth and elevation « 

The order of computation is as follows: 

• Call ORBIT to obtain the satellite position, 
velocity, and variational partials. 

\ • Call GRIIRAN to obtain the right ascension of 

- Greenwich and the station-satellite -vector 
for observing station. ... 

•. Compute the equivalent for each measurement 
and the associated residual. 

t Compute the Earth-fixed geometric partial 

derivatives of the calculated equivalents. 

8.0-397 
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•* Convert the partial derivatives to inertial 
coordinates and chain them back to epoch, 

• If necessary compute the spheroid height, 
geodetic latitude, and east longitude of 
the satellite. 




8.0*393 
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KAME 

ENTRY POt NT 
PREDC1 
PREDCT 


PREDCT . * . 

PURPOSE 

INITIAL IZAT.ION 

To" COMPUTE MEASUREMENTS. RESIDUALS <3-0. AND 
MEASUREMENT partials 


CALLING SEQUENCE 

SYMBOL TYPE DESCRIPTION 


CALL PR E0C1 < f HAT , NHAT. ZHAT . PMPXQ , PXPXO *NP ARM . 
NEONMXj 


CHAT 
<3.1 ). 

DP 

• 

INPUT - 

STATION" UNIT 

EAST VECTOR 

‘ t 

NWAT 

(3.1) 

OP 

INPUT - 

STATION UNIT 

NORTH VECTOR 

ZHAT 
13.1 I 

OP • 

INPUT - 

STATION UNIT 

VERTICAL VECTOR 

PMPXO 

CNPARM. 

OP 
i ) 

OUTPUT - MEASUREMENT 

PARTIALS 

PXPKO DP 

<6.NEQNM<, 2 ) 

INPUT 

SATELLITE STATE HAWflAL *HT EPOCH 
PARAMETERS ' \ 

•NPARM 

i 

INPUT - 

MAXIMUM NUMBER OP PARAMETERS PER 
MEASUREMENTS 

NEONMX 

i 

INPUT - 

NPAPM ♦Q 



CALLING SEQUENCE 
SYMBOL TYPE 
ISTA I 

DAY DP 

RES I OX R 
RES I 02 R 
OATASW L 

.i 

SUBROUTINES US EO 
COMMON BLOCKS 


CALL PREDCTC I STA .DAY, RE SI D 1 ♦ RE S I 02 , DAT ASW) 

description r . 

INPUT - STATION INDEX 

INPUT C OUTPUT - MEASUREMENT TIME 

OUTPUT - FIRST MEASUREMENT RESIDUAL <0-0 

OUTPUT - SECOND MEASUREMENT PESIOUAL 

INPUT - .TRUE. WHEN POSITION 0= SATELLITE WANTED 
•FALSE. WHEN MEASUREMENT PARTIALS WANTED 


ORDl T 

OOTPRO 

Yerix 

APARAM 
IN ITHK 


CRHR AN 

darctn 


CONSTS 

INTOLK 


PPOCES 

XINSRT 


CORO 

PPE n LK 


CLEM 

XEF1X 


CUVECT 

XYZOUT 


Cl>AR 

YINERT 


GNDTRK 


8.0-399 


of 21 
1972 



I>age 4 oi ll 
October 1972 


OF THE 

qrioinal pageJSJOO]^ 


input FILES 
CUTPUT FILES 
REFERENCES 


NONE 

NONE 

•GEDDYN SYSTEMS DESCRIPTION* 
VOLUME 2 - GCODYN DOCUMENTATION 


• SURROUT INE PFEDCK EH AT, NH AT , ZH AT .PMPXO, P XP XO. NP4RM,NEGNMX) 
IMPLICIT REALMS CA-H.C-Z) 

. LOG X C AL * l VHFCHN.PPEPRO.NOT 1ST.TWOSTA 
LOGICAL NOEST, SATSW, S UBS AT » D AT A S W , TP K SW , SA T S A T .ELEVSW 
INTEGER* 2 MTYPF, NMEAS ,PRETYP .CHANEL, I SAT 
INTEGER RECNO, ADCR 
OOUELE PRECISION NHAT.LOVE 

DIMENSION PMST AI (3>*PMSTA2(?)«OBSC<2)« XYZOOT{ 3 I ,pV( 6*4) ,G( 3 > , 

• G2(3.3).R2<3,3),RARH2(3,3), PMSTA3I 3, 2) , PMP x C < N^ARM , 1 ) , 

• PXPXO 16 «NFQNMX, 2 ) . PMST A ( 3.2 ) *£HAT« 3. 1 ) , NMA T < 3*1). 7HAT<3, 1 ) « 

• URHOO (3) ,DR(3).H13).HH3).AE I XYZ < 6 , 6 > , D ! 2< 3 ) . P S3 ( 3) . P SI ( 3 > • 

• PS3I3) *P23( 3) ,V 12( 2) . VS2( 3> , VS1( 3) , VS3( 3) , V?3( 3) 

COMMON/ AP ARAM/' NP AR . INPAR 1(3) , N S A T . N’GP AR C ( 5 ) 

COMf/ON/CHNSTS/OP I. DT * CP I , DR AO, DR SEC 

COMMON/CORO l /T , W ,U , T H ETG, P^R HT ( 2) ,APHT( 2) ,P»D< 2) 

COKMCN/CJVCCT/UHAT I 3, 25, XYZ C 2» 2>.RXYZ(3, 2) .P-EMVOt?) . D '2),P^f)f 

• *"51*1 2 ! 

COMMON/GNOTRK/SATL AT ( 2) »SATLON( 2) ,SATH( 2 ) ,FLEV( 2) , SATSW 
COMMON/ IN 1 TSK/ J Gil 4 2 ) .SUB SA T , I G2 < 5 ) . M I SLOG ( o ) 

‘ COMMON/ I N'T ELK/ TH COT 1 ( 2 ) , T HO T 2S , GM , AE . AF SO . FL A T ,FS03 2 .FF S032 • 

• GM314 9 ) , NEONS (2 ), ACOR< 2.3 ), LOVEl 4 ) ’ 

COM^CN/PRnOLK/CAYSTA, OBSO( 2 ) ,S I G ( 2 ) ♦ SRFND X , I SN , MT YPE , NME AS • 

• ISAT .3R.ETYP , CHANEL .VHFtHN .=> H EPRO , R EC NO 

COMMON/XYZOUT/XYZI (6, 4) . 

DATA NOT1 ST/ .FALSE ./ 

DATA C/2, R9792SOS/ ,DTCL/1 .CD-9/ 


EQUIVALENCE (PRO (1 ), TRKSW ), ( AE IXY7( 1, 1) ,URHOD( 1 1 ) • 

• CAEIXY Z ( 1 .2 ) , DR ( 1 > ), C AEI XYZ ( 1 .3) • H( l ) ) , ( AF l XYZ (1 ,4) ,HI( 1 ) ) 
EQUIVALENCE (DTRANS, OESOt 2) ) ,(KKSAT,SIG( 2 )> , ( T I ME 2 • S R“ NO X) 
RETURN 

EMTFY PPEDCT( 1ST A, DAY ,RES ID! .RESI02.0ATASW) 

IF C NOT 1ST) GO TO 10 
INITIALIZE 

* 0 = 1*500* AE*F*F 

C2=ae*f+ci , . . - 

FLAT2 1=( 1 ,OOC— FLAT ) * * 2 
NOT 1 ST = . T R U E • 

|0 CONTINUE 

SAT SAT= ( .NOTiD AT AS W) , ANO. (MTYPC • EQ. 2 . OR • MTYPE * FO . 3 1 • AND* KKSAT 

• • A NO *KK S^AT »LE,NSAT 
IS ATI =1 SAT 
1SAT2=ISAT 

■ IMCRsl 

K2 -0 




PRED 

67 

PPSP 

68 

PRCO 

69 

PREO 

70 

PRED 

71 

PREP 

72 

PRED 

73 

PP e O 

74 

DOPp 

75 

PR? D 

76 

PRED 

77 

PRED 

7 ft 

PRFD 

79 

PPFD 

PC 

PRF 0 

St 

2», DOcp 

A? 

opcr\ 

P f 

PPF.O 

A4 

t»OED 

es 

PRED 

*6 

PREO 

67 

PRED 

as 

PRED 

89 

PRED 

9C 

PREO 

91 

PPFD 

92 

,2) ) PRED 

Q3 

PPEO 

94 

PPFD 

95 

PPEO 

96 

PRED 

97 

' PPFD 

Oft 

PR e O 

99 

PRED 

ICC 

PRRD 

! 0 1 

PRED 

102 

PRFO 

1 03 

PPFD 

*04 

PRED 

ICS 

GT*CPPFD 

106 

ORCD 

1 07 

PREO 

5 C P 

PPED 

* Co 

PPFD 

1 1 0 

PRFO 

1 1 1 


8.0-400 
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ELEVSW=PREPRO 

C IF SAT-SAT TRACKING THEN GO TO 300 
IFtSATSAT) GO TO 300 

TWOSTA=MTY PE .GT .26 .AN C. .NOT .OA T A SW 
N0£ST = .F ALSE . 

C FOR VLHI £. AVERAGE RANGE RATE DATA SKIP INTEGRATOR CALL 
I F ( TWOS T A I GO TO 50 

C C8TAIN SATELLITE OPQ IT • . . • ■ ■ 

CALL CP 3 1 T (OAT 1 

C CRT A IN R.A. GREENWICH G STATION - SATELLITE VECTORS 
THCTG^CRHR AN (DAY . 1ST A I 

C SKIP MF ASURE M£NT S t PART I ALS IF ONLY GROUND TRACK REQUESTED 
IF(DATASW) GO TO 2020 
1FC 1ST A. E 0.0 ) GO TO 200 

NOrST =N p AR • £0.0* OR. (5 IG(I ).EQ.C.QDC.AND.SIG(2) .E3.0.CD0) 

. SG NP=3 - . 

C COMPUTE ELEVATION , 

ENS C=X .00 0 — RENV (3, ISAT)**2 
EN=0SCRT IFNSOJ 

ELF VC IS AT )=DAT AN (REN V {3. I SAT )/FN > 

C IF VLSI OR AVERAGE RANGE RATE THEN GO TO 230 
IF ( TVf QST A I GO TO 2 30 
C’ PROCESS DATA IF REQUESTED 

IFCFREOROJ CALL PR OCESt.IST A « CAY * T HE TGI 
C IF TRANSIT TIME CORRECTION WAS MADE THEN RECOMPUTE ELEVATION 
IF< .NOT .EL 2VSW ) GO TO 190 

ENSC-1 .0DG-RENVC3. I3AT5FF2 .. 

' HN*CS0hT < E?<50i - 

£LF VC IS AT ) = C AT AN (R £NV (3* ISAT J/EN) 

' 190 GO TO (400 .450.SC0 .5SC.6C0.7C0.80C) .MTYPE 

C PCF. DATA 

200 00 210 1 = 1.6 
210 PV( I « 1 ) ”0 • 000 

MT = HOD< MT YPE-t 5. 6> ♦ ! 

PMCMT.l )=I .OCO 

RESlDl=nnsac 1 )-XYZ I (MT. ISAT > 

ELCVC ISAT )=0.5DO*DPI 

NP=6 

IF (MTYPE.LT. 21 1 GO TO 1900 
C CALL ELEN FOR KEPLER DATA 

CALL ELE ? A( XY2 1 ( 1 . I SAT J.PMST Al, 3. .FALSE. • AE IXY2 > 
RE5r01=D3Sa( l)-PvST A1 (MT) 

IF(DAHSC RF.SI Cl > . GT .DP I) R ES I D1 = R ES I D 1 -OS I GN( D T WOP I , RES I 01 ) 
DO 220 1=1*6 
220* PMC 1,1 ) = AEIXYZ(MT. 1) 

GO TO 1 OC 0 
230 KTY FE=MTYOE-26 

GO TO (240.500*4 £0.450)*KT Y P E 
C TIME DELAY ; 

240 RES XD1=RC I SAT >/C ‘ , 

DO 250 1=1.3 

250 FMSTA1 < I) =-UFAT ( I, ISATJ/C 
GC TO l ■? ' 0 

c IF SAT- SAT PAT A THEN COMPETE U^LTNK f. DOWNLINK TRANSIT TI-MrS 
300 N 0 F ST = N ^ A R # F Q . 0 .OR.S lG(lI.f. O.C.CDO 
NP-3 


PRFD 112 
PPED 1 I 3 
PRFD I I* 
PRF.D 115 
PPFO 116 
PRED 1 17 


PPFD . 

118 

PRED 

UP 

PRED 

1 20 

PRFD 

1 21 

PRED 

122 

PREO 

123 

PPFD 

124 

PRFD 

125 

PRFD 

126 

PRED 

1 27 

PRED 

123 

PRFD 

12.o 

PPFD 

1 30 

PPFD 

131 

PPED 

132 

PRFD 

133 

PRFD 

134 

PRED 

125 

PPFD 

13 6 

PRED 

13? 

P°FO 

1 ?P 

PDED 

129 

PPED 

140 

PF r D 

14 1 

PPED 

142 

PPFD 

143 

PRFD 

144 

PRED 

145 

PRFD 

14/S 

PPFD 

147 

PRFD 

14ft 

PPFD 

149 

PPFD 

1 50 

PPFD 

1 5t 

. PRFD 

152 

PRED 

1 53 

pppO 

154 

PPFD 

. » 55 

PPED 

1 56 

PRED 

« 57 

PPFD 

15ft 

PPFD 

150 

PP c O 

1 60 

PPFD 

161 

PRFD 

1 6? 

OPED 

163 

PPFD 

16 4 

PPF O 

165 

PRFD 

1 66 

PPFD 

1 67 
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v . J=1SAT 

'|SATl=MIMO { J .KKSAT I ' - 

1SAT2=»*AX0 ( J. KKSAT ) 

501 IPHE=0 

JFl •NCT.PREPRQ) CO TO 360 ... 

lPRE = r»R = TY P/ 10 * * 

PRCTYP= D R ETYP- I PRE* 1 0 

1FC 1PRE.GT .0 ) GO TO 3 10 . ^ - . 

■■ CALL 0R3ITCDAY} '* 

THCTG=GRHR AN (DAY, 1ST A ) 

DO 302 1*1 *3 . ’ . 

302 PS 2 < I )=9XYZ( I, I SAT ) . . 

KK=0 ■ • 

OAY P=DAY 
.304 fil 2 =0 • 0 DO 

00 306 -1 = 1*3 - 

P12 ( I ) = =»S2 ( 1 J-RXYZ < I ♦ KKSAT) 4 . 

306 R12=R12+°1 2< 1 >** 2 
R12=0SQTT ( R12) 

DTP ANS=DAY+R12/<C*3.64D4> 

■ . OT=DAOS(DTRANS-DAYP \ 

JF( DT.LE, DTOL) GO TO 330 
KK=KX+1 

* IF<KK,GT,5) CO TO 308. 

O AY P= DT r> a kj S 

CALL CPTI T (DTRANS) 

THE T G— G - 'i R AN J C AY * ICT A ) 

GO TO 3 C- A . 

308 0T = 0T*3,54DA ’ >. . . 

PRINT 30CO.DT.DTOL 
3BC KK=0 

IF(ELEVSrf) TIME2=DAY 

33? CAY P-T 1 M2 2 . . 

CALL CR91TCTIME2) . - 1 

THETG=G9HR ANtOAY, 1ST A ) 

00 334 1=1*3 ' - 

204 PS3 Cl ) = R<YZ( I, KKSAT ) 

IF< *NOT. ELEVSW ) GO TO 390 

R2 3=0. 0 00 . 

DO 336 1=1.3 

P23(l > = PS3(M-PS2C II 

286 R22=R23+P2 3 ( I ) ** 2 • 

R23=DSQRT ( R22) 

TIA'E2 = DAY-.R2 2/ (C*8«64C4> • 

DT=DABS (T I ME2-0AYP ) 

IPCCT.LE.nTOL) GG TO 290 /.• 

KK=KK+1 

IFC KK.LC. 3> GO TO 38 2 

01*01*3.6404, 

•PRINT 3000 .pT.DTCL ' ' * 

390 IF< WTYP*. NE.3) GO TO 3!C 

VS3 (1 1 *X*F IX CXYZ IC 4.KKSAT > . XY2 1 C «,K<SATJ1 * THD T 2 S* XY 7 ( 2 . K KSA T ) 
VS? (2)*Yr“P ix <XYZ J( -.KKSAT ). XY? l< S.KKf.AT | )-TrOT2G*XY7{ l ,<<SAT) 
VS3(3)=XY 7. t (6, KKSAT) * . 

31C KK=0 

318 DAY P = DT RANS . 


PRED 168 
PRED 169 
PPED 1 70 
PREO 171 
PRED 172 
PPED 173 
PRED 174 
PRED 175 
PREO 176 
PPCO 177 
PPED 178 
PRED 17Q 
PPED 180 
PRED 161 
PRED 1 62 • 
PRED ! 63 
PPED 184 
PPED 166 

pprp 1 86 
PPFD 1 C7 
PPED 16.3 
{»REO 189 
PPED 190 
PPED 191 
PRED 192 
PPED 103 

pcen . ©4 

jiiHr-jj . ne 

PRED 196 
PRED 197 
PRED 193 
PPED 199 
PFFO 200 
PPEO 201 
'PRED 20? 
PPFD ?r 3 
PPED 204 
PPFD 765 
PPED 206 
PpFO ?C7 
PRED 203 
PPFD 2C9 
PPFD P If 
PRED ?1 1 
PRED 21? 
PRED 213 
PR* D m 4 
RPCD 2!5 
P*EC 216 
PPFD 217 
PPFD ? 1 8 
PC'FD 
prpr? ©©r 

PPCD ??1 
PPFD 72 ? 
PRFO ??3 
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CALL CRH ! T (OTRANS) 

THETG=GRHRANCDAY. 1ST A > 

PSI=O.CO:> 

DO 320 1=1*3 

PS1 (I > = RXYZ ( I.KKSAT) "* 

320 RS1=RS1+PS1( IJ**2 
RS1=0SQ^T ( RSI > 

JFt IPRG.L^.O > GO TO 324 

•CK— KK 4-1 * 

IF<KK.r.T«S > GO TO 322 ' ' ” 

DTRANS=DAY -RSI / { 08.6404 ) 

OT-OABS( 0 AYP-OTRANS > 

IFICT.GT.DTOL> GO TO 313 

CO TO 323 ... 

32 2 DT=DT*8.64D4 

PRINT 3000 *DT» DT OL .. 

323 DAY =DTR AN S 

324 ENS 0= 1 • 009 — REN V (3.KKSAT)**2 y • 

EN=OSO«T <=NSO) * 

ELEVC ISAT >=C AT AN(RCNV ( 3 , K K S AT > /£ N > 

ELE V( KKSAT ) =EL EV t I S AT > 

• PRECRO=PRFFRC. ANC.PRETYP.6T .0 
. XFf .NCY ,PEfEPj?0) GO TO 325 

j— 1 Sat 

ISAT=KXSAT 

CALL PPOCSSC ISTA.OTR ANS.THFTG) 

THC T,G=G RH R AN ( 0 AY • 1 ST A ) 

IS AT = J 

325 IF( VTYPE.NE.3I GO TO 326 
NP=6 

VS l (1 ) = XE" IX (XYZIt 4.KKSAT > , XYZ I C 5*KKSAT> > + TH0T2 S* X YZ ( 2 . K KSA T ) 
VS1 12 > =Yn F IXCXYZIC 4.KKSAT J.XYZ KS.KKSA'T) > - THDT2S* XYZ C 1 .KKSAT) 
VS1 (3>=XYtI(e.KKSAT) 

326 KK=0 ' 

32a DAY P=OAY 

CALL OF 31 T (CAY ) 

THETG=G : <HP An ( CAY » 1ST A | . . 

R12=0.C OC 
00 330 1=1.3 
PS2(I)=RXYZC I, ISAT ) 

P12 C n=°S2 ( I )-PS 1 C I > 

330 Rl2=R12+oi2(I)**2 
RI2*DS0RT (R12) 

IFC 1PPE.LE .0 > GO TO 334 ..... 

. KK=KK+1 

IFCKK.GT.5) GO TO 332 
CAY=DTR ANS^R12/ (O G . 64D4> 

OT=CABS(CAYP-DAY ) 

IFCCT.GT.OTOL) GO TO 328 
CO TO 391 ; 

332 DT=CT*8.5*C4 .. 

PR l NT 3 JSC* *OT. DTO. 

* CO TO 3*1 
334 rsi i=i. :o:/nsi 

R12 1 = 1 .?0?/R12 . 

1FCMTYPE.NE.3) GO TO 238 


PREP 

S>24 

PPFD 

225 

PRFD 

226 

PRFO 

Z?7 

PPFD 

228 

PPF.D 

229 

PRFD 

2 3> 

PPFD 

231 

PRFD 

232 

p»=D 

233 

PPED 

234 

PPED 

735 

PRED 

236 

PREP 

2 37 

PRED 

?3S 

PRED 

239 , 

PPFD 

24 0 

POEO 

241 

PPFD 

242 

PPED 

?4 3 

PPF;D 

?44 

PRED 

245 

PRFD 

?45 

PRFD 

2*7 

PPED 


PRED 

2 4G 

PRFD 

2 50 

PPF.D 

251 

PPED 

252 

PPED 

253 

PR=9 

254 

op=n 

255 

PRED 

255 

PPED 

257 

PRFO 

25 5 

PRFD 

^*59 

PQFO 

2 CO 

PRED 

261 

PRFD 

262 

PPFD 

263 

PRFD 

264 

PRFD 

265 

PPFD 

266 

PPFf) 

2*7 

PPED 

268 

PPED 

269 

PPFD 

270 

PCrD 

. 271 

PPFD 

?7? 

PP-D 

? 7 ? 

PPFD 

274 

PPED 

278 

PPFD 

276 

pp=n 

277 

PRFD 

276 

PRFp 

279 
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VS2C1 l=XFFIX(XYZ 1( 4, JSAT) ,XYZI (5, 1SAT)H-THDT2S*XY7.< 2. I?AT) 
VS2I2)=YCF IX<XYZ I( 4. I SAT 1 , XYZK 5. ISAT1 > - THOT2S *XYZC l ,ISAT) 
VS2 C3> = XY ZI (6, IS AT ) • 

DO 336 1-1.3 * 

V12U>=(VS2( n-VSl (I 3 )*R12! 

336 VS1 ( I )=VS 1 ( I )*RS II 

«R5l2=r>OT P*D.(P 12 .V 12 ) +DOTPRD<P SI *VS1 ) ' 7 

338 DO 340 1=1,3 • 

• P12C1 ) = °I 2(1 )* Ri 21 * * 

340 °S1 < I )=PS 1( X)*RS 1 I 

IF(NPA«M. GT.O) CALL CLEAR I PMPX C , NPARM ,41 
. *K=1 ' , • . 

■ JJ=3 

IFt IS AT »EO» I SAT 1 ) GO TO 345 

KK=3 

JJ=1 

* 345 R23-0 • DOO 

RS3=O.OD3 . » 

DO 351 1=1,3. 

P23U >*»S3( n-PS2C H ;‘ 

R23 =R23 * £> 23(I)**2 . . 

351 RS2=RS3+PS3( I ) * * 2 

t R23=D50RT ( P23) . 

RS3=OSORT ( RS2> * 

IFCMTYPE-2 ) 350 • 35 C * 3 CO 

c COM»'.'T«’ RESIDUAL E. PAOT1 ALS FOR SU«MCO RANGE 
350 IDl ( i ) -o ,5 00 * (9?1 ♦9 12+R22+RS3) 

!Ff JiOEST! CO TC 23 12 

DO 352 1= X ,3 - 

352 PMSTAl ( X ) = -°Sl ( I ) * 

PM( | iKK ) = X INERT ( PI 2( 1 ) • P 1 2( 2)) 

PM{2»KK)=Y INERT (P12(l ),P12(2)) 

PM(1 • JJ) = X INERT (PS I ( 1 >»PS 1 ( 2 ) 1-PM( 1 ,KK I 

PM(2, JJ) = Y INERT (P$ ! ( 1 ),P$1( 2))-PH( 2.KK) ' ; 

PMC3.KK) = PI 2 (3 } ... 

PM( 3 * J J ) = n S 1 (3 ) — PI 2( 3 ) 

GO TO 1930 

c COMPUTE RESIDUAL & PARTIAL? FOP SUMMED RANGE RATE 

360 RS3X=1 .CQ0/RS3 
R23 1=1. ODO/R23 
DO 361 1= 1 ,3 

V23{ I )= (VS3C I)~VS2 t I ) >*R23I 

361 VS3( X > = V5 3 ( I )*RS2I 

RES ID l =0*35 Of l)-0 .500* (RRS 1 2 +03 TpPOf P 23, V23 1 OOTPRD < p S3 , VS3 > 1 
. IF(NOEST) GO TO 20 10 
DP=OOTPRD (PS t. VS 1) 

DO 362 1=1.3 

362 PMSTAl { I J = -VSl ( t )*PP*P?1 ( I ) 

PM<4*KK)=X INERT (PI 2( 1 l.Pl 2C 21) 

PM(S.KK) =Y INERT ( PI 2< 1 ), PI 2( 2 1 ) . 

PMC6.KK) =31 2(31 * 

PN<4. JJ> = X INERT (PS l C 1 KPS 1( 2 I)-Pm( A,KK> 

PHIS* JJ) = Y INERT (PS 1 ( 1 ),PS1 ( 2 ) >— PM< 5.KK > 

PM(6, JJ ) = PS1 (3 » -PI 2< 3 ) 

OPsCOTP.RO ( P12.V 1 2) * 

DO 364 1=1,3 


PRED 

?80 

PPED 

281 

PPED 

2 82 

PRFD 

28? 

PPED 

284 

PPFO 

285 

PRF.O 

2P6 

PPED 

?B7 

PRFD 


PPFD 

789 

PRFO 

2 °0 

PP c f> 

291 

PRFO 

292 

PPEO 

293 

PPEO 

?94 

PPEO 

205 

PRFO 

79 A 

PRFO 

297 

PRFO 

798 

PPFO 

799 

PRFO 

300 

PREP 

•*01 

PRCO 

302 

PPED 

303 

PPEO 

30 A 

PRFO 

30 5 

PPED 

306 

nncp. 

20 7 

PRFO 

308 

PR^D 

•*09 

PRED 

310 

PPEO 

311 

PRED 

31 2 

PRED 

313 

- PRED 

31 4 

PPFO 

31 5 

dpeo 

31 6 

PREP 

32 7 

PPFD 

318 

PRFO 

319 

p£ed 

720 

PRED 

321 

PPFD 

322 

PRFD 

323 

PR C P 

-*24 

PRCD 

325 

PPED 

72 6 

PPFO 

337 

PPFO 

32 8 

PRFO 

3?o 

PPFO 

330 

PPKO 

**31 

PRFD 

**32 

PPFO 

33.3 

PPFO 

334 

PPEO 

335 
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• *• # 

364 PMSTA2C I1 = Vi2( ! )-DP*P ISC I J 

PHtl .KK)=X!NCRT(PMSTA2(1) tPMSTA2(2) > 

PMC2*KKI=Y IMFiRT C PMST A2< 1> *PMST A2( 2> > 

PMt3»« ) = PMSTA2{ 3) 

PM(I,JJ>=-Xlr.Er < TCPNST A1 (1 ).PMSTA1C2) 

PMC 2* JJ)=Y 1NP.RTCOM5TA 1( 1 ) .PMSTA 1 C 2) >-P M < 2 . KX ) 

PM( 3* JJ)=-P V ST A1 (3 )-PVSTA2< 3 > ■ 

PMC 1 *KK )=°y( 1* KK )-THDT?S«PM ( 5. K* ) * * *• *. 

PMC2«KK»=.ou(2 t K< 1*THOT2S*P w ( 4.KK ) ' 

FMtl.JJ) sovii, JJ)-TMOT2S*PM( 5. J J > . 

PMC2t 2. JJ ) + THDT2S*PW ( 4* JJ ) 

CO TO 1930 

C RIGHT ASCENSION AND CECL I NAT I ON 
400 XY = CSORT { X YSC( IS AT ) > 

OBSCC I ) “0 AT AN2 ( UHAT C 2 * ISAT ) • UMAT ( I • ISAT ) 1 ♦TMET6 
08SCC IJs'JflSOU J-DMOD ( OOSCC 1 1 ,6 TVf OP I 1 

IFCDAFSCOOSC (1 )> .GT.CFI ) OOS CC 1 ) = CD SC ( l ) -DSIGN< DTWOP 1 .OB SC C 1 ) ) 

RES 10 1 — JOS C ( 1) • 

OOSCC 2 )=onsOC2 ) — CAT AN ( R X Y Z ( 3* I S.A T ) / XY ) 

IF (OARS COOSC (2 )) »GT « O PI ) Q3SC< 2 ) *OBSC C 2 ) -OSIGN ( OTWOP I .OBSC t 2 > » 
oes!D2-nosc( 2) 

IF C.NOT .TRKSW) CO TO A 25 

URHCO (1 )=0CCS(08S0< 1 >-THETG)OCOS(OBSO< 2)) 
t URHOO <2)=OSIMOBSO ( 1 > -THETG ) *DCO SCOSSOC 2>> 

UPMQO (3)-DSIN(OBSO(2) ) 

XYZDOTC 1 ) = XF.FI X( XY Z I < 4, ISAT >.XY7I(5. ISAT)) +TH0T2S*XYZ< 2. IS AT) 
XYZOOTC 2) = YF.FIX{ XY 2 I C 4. ISAT ) ,XY7. I ( 5* ISAT )} -THD T2S*XYZ< l . ISAT) 

XYZ DOT C3) = XY?I ( 6 « ISAT ) 

00TPS=D0TOR0 (UMAT { l . I SAT ) ,XYZt 1 • ISAT ) ) /DOT PRO C URHOC * XYZ ( l ♦ I SAT }) 
DO 4C 5 1-1*3 ■ . 

ORtl)=R< ISAT >*DOTPS*UPHOO C D-RXYZC I* ISAT) 

I2=M0D( I • 3 ) +1 
X 3= vOD (12»3)+1 

HCX )=XY7( I2t IS AT )* XYZ COT t I3)-XYZ( 13. I SAT ) * XYZDOTC 12) 

405 HI l I)=XYZ t (12. IS AT )♦ X YZ 1 ( I3+3. I SAT J-XYZ1 {I3.ISAT)*XY2I(12*3.ISAT) 
T— DOT PPD(DR» XY 7 DOT ) 

W=DCTPRQ (DR.H) 

Sf NU-— ( XY Z l (2* IS AT )*H 1< 2 ) ♦ XYZX C I • I5AT)*HH 1) ( 31 + XVZI C3# IS ATI* 

• <HI c 1 ) «*2+HI ( 2) ** 2 ) 

COSUM -XYZ 1(1. ISAr>*Hl(2)+XYZI<2. ISAT )*HI( 1) > * 0 SO R T{ HI C 1 ) * * 2 *■ 

• HI <2 > * *2 + Hl ( 3 )* *2 ) 

‘ U=DARCTH( S INU. CO SU > ... 

425 IF ( NOES T ) GO TO 2010 
C CALCULATE PART I ALS FOR ESTIMATION 

• RS0XY=RXYZ(3. ISAT) /(P EO( ISAT >*X Y) 

. PMSTAI ( 1) =RXYZ(2. ISAT >/XYSC( IS AT ) 

PMSTAi(21 = -RXYZC 1. ISAT)/XYSO( ISAT) 

PMSTA1C 3)-G.C00 

P W ST A2 ( l ) - RXYZ ( 1 • I S AT )<-RSOXY 

PM5TA2< 2) =RXY7( 2. I SAT hPSOKY • * 

PMSTA2C 3) =-)(Y/dso( ISAT) 

cc to j'*:? 

c PANGS 

450 RES 101 = OMSOC 1 )-n (ISAT I 
|F( NTESr > GO TC 20 10 
no 45S 1=1.3 


PRFD 336 
PRED 32? 
PRED 233 
PRFD 3?R 
PPEO ?*C 
PRED 341 
PRED 342 
PPF.D 34 3 
PPED 34^4 
PRED 3*5 
PPEO 346 
PPEO 347 
PRED 342 
PRED 34 9 
PP^D 360 
PRFD 351 
PPED 352 
PPEO 353 
PRFO 354 
PPFD 355 
PPED 366 
PPED 357 
PPFO ’68 
PRED 350 
PRED 360 
PRED 

PPED 36 2 
PPED 363 
PRFD 364 

PRED ”*65 
PRED 366 
PPED 36? 
PRFD 364 
PRFD 26 <5 
PRFD 3 7 0 
PRED 371 
PRED 372 
PPFD 373 
PRED ’74 
PPED 375 
PPED 376 
PPFO 377 
PRFO 379 
PRED ”9 
PR e O 2pC 
PRED 391 
PPFD 30? 
PRFD 3P3 
POFD ’84 
PRFD ’P'i 
pppn 3?6 
PPFD ’87 

PRFD ’’PP 
PPF D 38 Q 
PRED ’oq 
pp c n ’p i 
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4SB PMSTAK ns-UHATC !• ISATI 

• CO TO 133 0 * * . 

C RANGE PATE 

SCO XY7D0T ( 1 ) = XEFIXC XY Z I C 4. IS AT ) * X YZ I { 5, ! SAT ) ) ♦THOT?.S«X YZC 2 . I SAT) 
XY200T ( 2 ) = YEFI X( XYZI < 4, ISAT ) *XYZ 1(5. ISAT > ) -THD T2S *XYZ t I . I SAT) 
XY2DOTC 3>=XYZI CO. C ?AT ) 

* 08SC( 1 ) -DQTPfiD ( XYZ03 T «UHAT C 1 iISAT)) 

RES 101= 03 SOI ’l )—0 5S C( 1 ) 

1F( N-HEST ) GO TO 20 10 . 

NP=6 

00 505 1=1 ,3 

PMSTA1 ( n = -<XY7.DQT I I ) -OBSCC 1 )*UHAT< I • ISATM/R( I SAT) 

505 PMSTA3C I . 1 ) = -UHAT( l , I SAT) 

IFC ♦NOT • T WGST A ) GO TO 1900 
RES roi=n3scc 1>*SRPNDX/C 
DO 520 1=1*3 

PMSTA1 U 1 =PMST A1 ( I )*SRFNDX/C 

520 PMSTA3C I. 1 ) = °MST A3 ( I . 1)*SRFNDX/C ; # • 

GO TO 10)0 
550 CONTINUE 
C ALTIMETER MEASUREMENTS 
NP=6 . 

ELFVC ISAT )=0.SD0*DPI 

t C3= (2,0D0*C2-4 ,0M *C1 *UHAT C 3 . I SA T > ** 2 ) *UHA T ( 3* ISAT) 

RR=UODO/R ( ISAT > 

OBSCC i) = R( IS/T C 1*UHAT( 3, ISAT)**2-C2) *UM AT ( 3 * I SAT 1 **2 

RES!Di=OOSOn J-O0SCC 1 ) 
on 552 1=1.3 

552 G(I )=-JHAT< 3. ISAT>*UHAT( I , ISAT }*RR 

G (3)=G ( 3 )+RR * ' 

C ALTIMETER PAKTIALS 

DO 555 J= 1 .3 . 

555 PMSTA1 ( J) = - (UH AT ( j « l S AT ) +C3*G( J ) > 

XY 2 DOT ( 1 ) = XEFI X< XYZI ( 4, I S AT ) , X Y 7. I ( 5 . I SA T ) ) + THD T2S*XY?( 2 * I5AT) 
XY20OTC21 =YEF1 X{ XYZI ( A. ISAT > ,XY2 1(5, I SA T 1 1 - THO T2 S * X YZ ( 1 , ISAT) 
XYZDOTC 3>=XYZ1 <6, ISAT V 
C ALTIMETER RATE 

OBS C ( 2 ) - - DGTPR D (PMST Al» XYZOOT) 

RESID2=03SQ(2>-0BSC< 2 > 

IF (NOEST) GO TO 2010 

C4=-RR*RR 

DO 556 J= 1 .3 

S5S G2( J, J) = < I .OCO-3 .OnC*UHAT( J . ISAT >**2)*UHAT< 3.1 SAT) *C A 
G2( 3.3) =G2 ( 3 .3 > *2.00 0 *UHAT< .3*1 SAT)*CA 

G2(1.2}' = -3.CCQ*U HA T( 1 .ISAT)* UH AT( 2. ISAT) *UHAT( 3*1 SAT ) tC A 
* £2(2. I )=G2 < 1 ,2) 

00 6667 1=1.2 

G2< I. 3) =< 1 .0 00-3 .0 0 0* UHAT{ 3. ISAT >**2) *UH AT ( I ,T SAT) *C4 
6667 C2 < 3. I) =G2 ( I .3 > 

OO 553 l = 1.3 : * 

00 55 A J= 1 , 3 ‘ 

554 R2( I, J)=-UHAT{ I, is AT >*UHAT< J.1SAT )*RP 
557 R2( I. I ).= R2( 1 ,1 >+PR 

C5 = — 1 2 * 0 DC * C 1* UH AT ( 3 . ISAT } ♦ * 2* 2 • CDC- *C 2 

OO 556 1=1.3 . . 

FMSTA3I I . 1 )=C.CO 
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PPFD 393 
PP=D 394 

ppprj TOS 

op=o ?9A 
PPFD 397 
PPED 396 
pPFO 399 
PPED fOC 
PRFD Act 
PP=D A c 2 
PPEO AO 3 
PPFD 40 A 
PRED A 05 
PPFD AC 6 
PRED 407 
PRED A C 6 
PRFD A o 9 
PRED A 10 
PRFD A 1 1 
PRED A 1 2 
PPEO A13 
PPFO 4 1A 
PPFD A 15 
PRE D Ai* 
PRCD A 1 7 
PRED a j p 
PRFD A»o 
PRED 420 
PRED A21 
PRED a 22 
PRED a 2 3 
PPFD A2A 
PP=p 42* 
PRED 426 
PPFD 42? 
PPFD A ?3 
PPEO 429 
PPEO 430 
PPEO A3i 
PRED 432 
•PPFD 433 
PRFD 434 
PPFD 435 
PP p O A 3 A 
PPF.O 4 37 
PPFD 43R 
PRFD A 39 
PPED 440 
PRFD 441 
PP=D 442 
PPFD 443 
PPFO 444 
PPFD 44* 
PRED & A 6 
PPFO AA7 
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on S56 J- 1*3 

C SECOND PA»T14LS CP ALTIMETER WRT X*Y.Z 

556 PARH2II. J ) = R2t I. J) + C3*G2< 1. J) + G (I>*CS*G < J) 

DO 557 I = l i J 

C PARTIAL HDOr.WflT X , Y ,Z « X DOT * YDOT , Z DO T . 

PMSTA2C IlaO.nO • 

* PMSTA3C I. 2 >=FMSTA1 <1 > - 

DO 557 J=1 , 3 

557 PMSTA2 { I ).= PMST A2{ I J- XY7DOT( J }*PAPH2( I . J> . 

GO TO 190 0 . 

C DIRECTION COSINES 

600 RES 101*00501 1 )-RfMV( 1 • I SAT) 

RES 102 -O^S 0(2) — RENV (2.1SAT) 
tF(NOEST) GO TO 2010 
DO 60S 1=1 ,3 

PMSTA1 ( I) s-fEHATCl « 1STA J-RENVI 1 * T SAT ) *UHAT ( I ♦ I SAT >) /P ( I S AT > 
60S PMSTA2 <1 ) = - ( SHAT ( I t I S TA )— REN V( 2 * I SAT ) *UHAT ( I « I SAT ) ) /P ( I SAT ) 
60 TC 1700 * 

C X-Y ANGLES 

"'.700 EZSQ = 1 .CD0-RENVC2. IS AT)**2 
EZ=0SCRT{E7SC) 

RES ID1 = DBS 0(1) -OAT AN I RENVC 1 , IS AT ) /RENVI 3 . I SAT > ) 

RES lD2 = OBSO(a)-OAT AN < RENVI2. ISAT >/EZ ) 
t IP < NOEST > GO TO 20 10 

REZ^RJ ISAT )*E 7. • 

REZSO=R( I S AT )*EZSO 


PPED A AS 
PRED A4R 
PREO *50 
PPED *51 
PPED A52 
PPED 453 
PREO A5A 
PPED '*55 
PREO AS (S 
PRF.D A 5 7 
PREO '-5 8 
PPFD A SR 
PREO a 60 
PPEO *61 
PPED 462 
PPED A ft 3 
PPED Aft a 
PPFD Aft5 
PPFD A 66 
PRRD A 67 
PPFD A 6 8 
PPED A6<3 
PPED 470 
PPED A 7 1 
PREO A 7 2 
PPED 473 


DO 705 i- 
PMSTAi (J> 
« REZSO 
705 PMSTA2< I ) 
GO TO 172 
C AZIMUTH 4 CUE 
6C0 RESI01=DH 
IF CDAQSI a 
RESID2=D8 
1F( NCEST) 
REN=PC ISA 
RENSQ=R( I 
DO BO 5 1= 
PMSTAKt) 
• BENS O 
605 P M S TA2 ( I } 

C CONVERT EARTH 
1900 CALL CLF A 
I F { MT YP=, 
ftCT 1925 K 
PMfl.KJa- 
PH(2tK>=- 
P M (3.K)=- 
PMPXO <N»a 
PMPXO (NCH 

PMPXO 1 M**A 
' PVf»XC I NPA 


= i ZrAT { I • 157 A JiPENV (1*1 SAT i— EKATt » , 1 STAi APE 


r- C. »»»<»«»* * 


= -(SHATI1 . I S 
0 

VAT ION ANGLE 
SOI 1 J-CARCTN 
ESIC1 ) . GT .DP 
SO (2) -ELEVC I 
GQ TO 20 10 
t ) * EN 
S AT )*ENSO 
1 .3 

= -(RENV(2 .IS 

= -{ ZHATII * IS 
FIXED PARTI 
R( PMPXO , N P A R 
GT.14 . AND.MT 
= 1 • KMEAS 
X INERT (PM ST A 
Y INERT (PMST A 
P v ST A I 3 . < ) 
RM-5. K J =P MST 
RM-C, K)=3M0T 
RM-3, k ) tp MS T 
RM-7, 0=1 .CO 


TA)-RENV( i« I SAT ) *UH AT ( I . ISATH/REZ 


( REN V ( l .1 SAT).RENV(2. ISATl) 

I) »ES ID1=RESID l-O510N< DTWOP I 
SAT) 


• RES I D 1 ) 


AT )*EHAT( I, 1ST A )-R=NV< 1 • I SAT )*NHAT< I • I ST A) )/ 


TA 3* I SAT )*UHAT< I . I SA T ) 

ALS TO INFRTIAL 
2* N'A F AS ) 

Y°F .LT • 27 ) GO TO 1940 

(1 .K J»PVSTAC2»K> 1 
II .K ) , PMSTAI 2,K ) ) 

A( 1 . K) 

A I 2 . O ■ 

AC 3.0 


) /REN 


IFtNP.LT.Aj GO TO 10 2 S 

PMt 4.K) =- X | NCRTIPMST A 21 1 .K) .PMST A3( 2.0 ) 
PM{ S.K) = -Y I.NERTIPNST A 2( l , K J .PMST A2I 2.0 ) 


open *;oi 

PPFO S02 . . 

PPED C C3 
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PM(6.K)=~PMST A 3 (3i K J . 

. jp( htyPS. NE • 3. ANC. MT Y FC *N£ • 4 .AND.MTYPE. NE • 20 ) GO TO 1925 
IFC MTYPE. EO* 4# AND# K. E 0. 1 I GO TO 1925 
PM(1*KJ=PM(1 .K )-TH0T25*PM(5,K1 
P«(2*KJ=PM<2*K ) «-THDT2S*PMC4 # K) 

1925 CONI 1 NU r. 

* GO TO 1340 * 

1930 IHCB-ISAT2—I5AT1 

PMPXO (NPAPM-5, 1 ) sPMST A1 ( 1 ) * 

PMPXO CNPA RV-a . 1 ) =PVS T A1 ( 2 ) 

PMPXO CNPARM-3# 1 ) =P*-15T Al( 3 > - 

PMPXO (N PAR M-7* 1 )=1 . 0 DO 

C CHAIN INSTANTANEOUS PAST I ALS BACK TO EPOCH 
1 94 0 I SATNO= I 5 AT I '■ 

I94S Ll = ( ISATNQ-1 )*6 
DO 1950 1 = 1.6 
L1=L14* 

DO 1950 K=1,NMEAS , 

K1=K4K2 • * 

DO 1950 J=I.NP 

l 95C PMPXO <L1 * K 1 =PMPX0CL1 *KJ+PM( JiKIJ *PXPX0C J * I • l SATNO I 
11=6 

Jl = NS AT* 5 
. 00 19T0 1=1.2 

t_l = AOOR( ISATNO. I > 

IFCLl.LE.C) CO TO 1970 

i.l=J14Ll 

11 = 114-1 

DO I960 K=l.N^A3 ■ ; 

K1 = K4*K2 * * ^ . 

OO I960 J= l.NP 

1 960 PMPXO (Ll .K } = PMPXO C LI . K)4PM( J,< 1 ) APXPXOC J « I 1 • I SATNO) 

1970 CONTINUE 
11=1141 

I2=NECNS { I SATND>-t - 

IFCI1.GT.12) GO TO 2000 

L1 = MAX0 ( A OCR ( 1 . 1 ). ADDRt 2. 1 1 . AD DR ( 1 • 2 1 , ADDP( 2 .2 > .A DOR (1*3 
. . AODR ( 2 ♦ 3) )4J1 
OO 1990 1=11.12 

C1=L141 

OO. 193C K= 1 * NME AS 
K1=K4K2 

OO 1930 J= l.NP 

1930 PMPXO (H .< J=FMPX0(L1 * K)4PM(J,< 1 )*PXPX0(J. I • ISATNO) 

2000- K2 = K24P 

ISATNO= IS ATN04 INCR 
IFC ISATNO. EO. IS AT2 > GC TO 194S 
2010 ELF.VC ISAT ) sELEVUS AT )/ORAO 
c TEST FOP G°n'JN0 TRACK V/ANTED 

IFC .NOT. SUES AT ) RETURN ; 

C EAST LONGITUDE OF S ATF.LL I TE IN O EG REFS 
2020 OO 205C J=1.NSAT 

SAT UONCJ ) = (OAT AN2( XY 7 I ( 2. J ) • XY 7 I ( 1 . J ) >- TM.-:T5 )/ORAD 

SAT LON( J ) = 0 'TO ( S AT LON ( J ) 4 7 * 20? « 3 * 602 ) 
c GEODETIC LONG ITLCE OF SAT CLL I TT- IN n F GR F. E S 
XYSO( J I =X Y 2 I { 1 . J 1**2 »■ XYZ I (?»J )**2 


PPEf> F04 
PREO *05 
PQEO SC 6 
PRFO C CT 
PPFD 60* 
PREO *09 
PRFD *10 
PRED 51 1 
PPFD *12 
PRED 5)3 
PPFD 514 
PREO *15 
PRFO 616 
PRFO 517 
PRED 610 
PRED 51 9 
PPEO 520 
PRED 621 
PRFO 622 
PPtD 623 
PRFD 624 
PRFO 625 
P«EO 526 
PRED 62? 
PPFO 52 8 
PRED 629 
PREO 63v 
P*cO 531 

PRED 632 
PRED *23 
PPFD 6?a 
PPEO 5 35 
PPEO *36 
PREO 637 
PRFD 530 
PRFD 63° 

PRFO c 6C 

PRFO 6 4 J 
PPEO *42 
PPED S a 3 
PRED *44 
PRFD 545 
PPFD 546 
PRED 647 
PREO 540 
PRFO *4 9 
PREO 550 
PREO 651 
PPFD 552 
PRFO 653 
PRFO *54 
PP*D 655 
PPFD *66 

PPFD *57 
PRFO *6 6 
PRFO *59 
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SATLATC J> =XYZI (3.J )/ ( CSGRTI XYSG( J) >*FLAT21 ) PRED560 

. SATLATl J)=DATAN(SATLAT< J> )/DRftO * PRFD 561 

C SATELLITE HEIGHT IN METERS - ’ PREO 662 

RS AT -DS ORT (XYSO(J) *X Y Z I { 3 * J I ** 2 J PRFD r 63 

SPS IS 0= ( X Y Z I ( 3 • J >/RSAT)** 2 PRED 56* 

2050 SATHC J) = ( RSAT-AE >-<FSG32*S£>S ISO**2-FFSQ32*S°SI SQ) PPEO 565 

RETURN * PRED 566 

3009 FORM AT ( * ********* ** s ACCFPTEO TRANSIT TIME EPROR AFTER SIX *• PREP *>67 

• • I TE R AT I ONS =*«E12.5*« SECOND S * GREATER THAN • . El 2 • 5 « PRED 569 

DAYS s*** ******* S» ) PPFD F6R 

CKO * ; PRFO 570 
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. NAME PRNTPR 

PURPOSE TO PRINT THE OBSERVATION PREPROCESSING REGUESTFD 

CALLING SEQUENCE CALL PRNTPRIOUT 3 * ATYP E ) 

STMBCL TYPE DESCRIPTION ' 

»• . * r ■ * 

OUTP I OUTPUT “ PRINTER 

ATYPE DP OUTPUT - MEASUREMENT TYPE NAMES 

(31 ) 


SUBROUTINES USED 

NONE 




‘COMMON BLOCKS 

CGEOS 


t 


• INPUT FILES 

NONE 

. 

% 

* 

•CUTPUT FILES 

OUTP - PRINTER 


9 



t 



SUBROUTINE PFNTPRtOUTP, ATYPE) 


PRNT 

25 


ncAL*S Ki f ►■'c (j 1 ) * • NAMis 2*tLL« iYPua» 8L ANJv 


PRMT 

Z •> 


INlfct.tM OUTP 


PknT 

S~r 


DIMENSION OUMC2) " 

-■ 

PRNT 

28 


COM^ON/CG EOS /OUM * I PR E PR ( A , 5 0 ) . RF I NO X ( 2 , 5 0 ) « I ND°RE ( 2 * 

50) • NOPPPR • 

PRNT 

?o 


• Gl( 20 2) 


PPNT 

30 


. . I NT EG E R * 2 IPREPR.INOPPE 


PRNT 

31 


OATA MAX T D E/31 / * ALL/5 H ALL / , T YPE S/5HT YD ES /* 9L A NK /l H 

/ 

PONT 

32 

c 

PRINT HEADING 

. 

PRNT 

33 


WRI TE lOUTP , 1C700 ) 


PRNT 

3A 


DO 320 1= 1 • NCPRPR 


PPNT 

35 


WRITE (OUT P» 10710) 


PRNT 

36 


L=I NOPREt 2 . I > 


PRNT 

37 


IF(L.E0.0 , QR. (L . GT - I A .AND.L .LT , 27) ) L = MAXTPE 

• *’ 

PPNT 

38 

c 

PRINT STATION NU«D£R & MEASUREMENT TYPE 


PPNT 

39 


NAME 1 = ALL 

• 

PPNT 

40 


NAME2=TYPES 

• '■ 

PRNT 

4 I 


IFCL.NE.M AXTPE ) NAME1 =ATYPE(L) - 


PPNT 

A? 


IPtL.NE.MAXTPE ) NA ME 2 =OL ANK 


PPNT 

A3 


IF ( L*LT « A ) N AM £ 2 = A TYPEtL + 7) 

* 

PRNT 

4 A 


*IF< iNQORf C 1 « I) ) 32C « 2 50 « 2 


PPNT 

4 5 


225 WRI TECOJT P . 1070 1 ) INDPREI 1 « I )* NAME! * NAME 2 


PPNT 

46 


GO TO 27S 


PPNT 

47 


2SC WRI TC tn'jTP, 1C702) NAME1.NAMF2 


PRNT 

d A 


275 CONTI NUF ‘ • 


PPNT 

AO 


OO 30 5 J=l ,4 t ' * * 


PPNT 

FO 


, I^I IPRrPR( J. I) .GT. 0) C-0 TO < 20 7 , 3Ct • 309, 31 C ). J 


PPNT 

M 


305 CONTINUE 


PPNT 

r.j 


GO TO 3?; 


PPNT 

5? 

c 

TRANSIT TIME 


PRNT 

5A 


307 WRI TE(Ourp,lC703 ) 


PRNT 

55 
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60 TO 33S 

. 300 IF ( IPRC 3 R C It I) (NEtDl WR ITECOUTP. 1C71 0> 

C REFRACT ION 

A=RF I KDX ( 1 • I> 

IFCA.LE.T.) A= 2 28* 5 

WRl TE (OUT P* 10704 > A . • * . 

. GO TO 305 
C CONSTANT TIMING 

309 IFl IPRKDRI 1. D + IPPEPR (2* I I-NE.O) WRITEtOUTP, IC7I0) 

WR I T£ ( OUT P»107C5) PFINDX'2*I) 

CO TO 305 • 

C OPTICAL 

310 WR I TE ( OUT P*1C708) 

320 CONTINUE 

RETURN 

10700 FORMAT t I H 1 » 5CX » 2 5H PP E PROCESS IMG COP RFCT 1 ON S/ 1 H 0 * 4 A X , 7HST AT I ON, 
X 21 X* 10FC0RPECT I ON/1 H * 36 X , 6HNUMBEC** SX . 7H TYPE ( S ) • 1 2 X* 

2 7HTYPE(Sl,UX,ShVALUE) 

J0701 F0P.MAT(37X. I5.3X.A6. 2X.A6) * 

X0702 FOFMAT(32X*3^ALt_,4X, A<5, 2X,A6) 

10703 FQF. VAT { 1 H+ , £ 2X , 1 2HTP AKS IT TIME) 

19704 F0FVAT<1h+,£2X.10HREFP4CTIPN,FI2.1,.3H n UNITS) 

\0705 FORMAT! 1H*, 63X, 1 1HTIM ING B I A S. 3PF 1 1 • 1 , 1 3H MILLISECONDS) 

107C3 POPVATdH • 63X « 7K)PT I CAL ) 

1971C FORMAT ( 1 H ) * 

END 


PRNT 

56 

PRNT 

57 

PRNT 

58 

PRNT 

59 

PRNT 

60 

PRNT 

61 

PRNT 

62 

PPNT 

63 

PRNT 

.64 

PPNT 

*65 

PRNT 

66 

PRNT 

67 

PRNT 

68 

PRNT 

*9 

PPNT 

70 

PRNT 

71 

PRNT 

72 

PRNT 

73 

- PPN T 

74 

PRNT 

75 

oonT 

76 

PRNT 

77 

PRNT 

78 

PRNT 

79 

PRNT 

ftO 

PRNT 

81 
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PROCES 

DESCRIPTION 

PROCES is a subroutine designed specifically to 
complete the GEODYN preprocessing. 

PROCES makes the following preprocessing cor- - 
rections : 

. • Transit Time, 

■ • • Annual Aberration, 

• Diurnal Aberration, 

• Parallactic Refraction, 

• Tropospheric Refraction, 

• • ' ‘ * • 

• Range Transponder Corrections. 

The specific corrections applied by PROCES 
are dependent upon indicators input to PROCES through 
COMMON storage. 


% 
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KAME 

ENTRY PC! NT 
PftOCSl 
PRQCES 


PROCES _ 

PURPOSE 

IN IT IAL RATION * , 

TO’ COMPLETE PREPROCESSING OF SATELLITE MEASUREMENT! 


CALLING SEQUENCE CALL PR OCSl ( I STANO • STAXYZ • RL AT* RLON I 


SYMOCL 

TYPE 

DESCRIPTION 



ISTANO 

Cl) 

1*2 

INPUT - TRACKING 

STATION 

numbers 

ST AX YZ 
(3,1V 

DP 

♦ 

INPUT - TRACKING 

STATION 

CARTESIAN COORDINATES 
» 

RLAT 

Cl) 

D° 

INPUT - TRACKING 

STATION 

LATITUDES 

RLON 

Cl) 

OP 

INPUT - TRACK ING 

STATION 

LONGITUDES 


CALLING SEQUENCE CALL RRCCES ( I STA *DAY, THETG ) 


SiwuL TYPE 


« t 




1ST A I 

INPUT - 

TRACK ING 

STATION INDEX 



.DAY * DP 

INPUT C 

OUTPUT - 

MEASUREMENT TIME In DAYS 
JAN 0.0 OF THE REFERENCE 

FROM 

YEAR 

TMETG OP 

INPUT & 

OUTPUT - 

RIGHT ASCENSION 

OF GREENWICH 

SUBROUTINES USED 

ORBI T 
CBSDOT 

GPHR AN 
EP HEM 

REF JON 
EON 

DOTPRD 

DJUL 

NUMDP4 

COMMON BLOCKS 

CGEOS 

PREBLK 

CUVECT 

CEPHEM 

GNDTRK 

CONSTS 

INPUT FILES 

NONE 





OUTPUT FILES 

NONE 





REFERENCES 

•GEODYN 

VOLUME 

SYSTEMS DESCRIPTION* 

1 - GFOOYN DOCUMENTATION 

. 



SUBROUTINE PPOCSK 1ST ANQ, ST A XY Z , RL AT. PLON ) 
IMPLICIT RF.AL*S ( A -H » C- Z I 
LOGICAL*! VHFCHN .PREP GO 
LOGICAL SATSW 
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INTEGER RECNO 

INTECER*2 MTYPE* WE AS .PRETYP .CHANEL • I SAT 1 • I PR =■ * I STAND 
double precision u 

REAL TR ANS P . RE p I CM » E Q N. CBSOOT 

DI PENSION PS AT ( 2 ) i ST A S4T ( 25) « 1ST AND ( 1),TRANSM3»2.9> « KSATNOf 27 ) • 

• ST AXY7 ( 3 * 1 > .RL AT( 1 ) . RLON ( ! ) *GAT P ( 3) • PRETYP< 2) .STPSATt 3 ) 

COPKOM/CGEOS/ I S ATC D ( 2 ) » IPREPPl AS3 ) 

COPMON/CJVECT/UHAT{3. £> .XY7( 3. 2).PXY?<3.2) .P=NV<3,2 ) .«< 2 1 .PSQ.t 2) . 

• XYSCH2 ) 

COM VQM/CEPHE*'/ AO ( * > * SUNX. SUMY. ! G2C 1 12 A ) 

COMMON/GMDTRK/SAT. AT ( 2) .SATLONC 2 > , S A TH C 2 ) . EL E V ( 2 ) ,SATSV 

CCMVCN/C.ONSTS/DP I» OT V/Q^ I « D2R «S 2R 

COMMON/ PRE GLK/ CAY5T A . OISO 1 . OBSO 2 * 5 I G 1 .SIG2.SRFNDX.I SN* MT YPE • 

• KMEAS. I SAT l . 1 PRE. C PANEL . VI-FCHN ,PP = PPH .PFCNO 

DATA NSATNO/27/. GATE/ 187 370 3 l . 3D C. * 6 9* 25 7 . 830,936551 .630/. 

• VL 1GHT/2 •9970 2509/ »57r>NnX/3 26 .EDO /.RCONST/C • BA 323350- 2/ 

• DATA KSATNO/ 6589 1. 650 8° 1 . 65C 89C 1 * 

, 6B02U6PO C2l.6«0C2Cl , , ' • 

• 64541.6*0541.6*05*01 • 

• # . 65811.650 611.6508101 . 

• 66491*660441.660*901* 

67731. 670 711.67073d. 

. 66141.660 1*1.650 1401. 

i # - .69511*695 11 *6905101 • : - 

. ' 65911*659 11 .690511/ . 

OAT A TRANSP/ 

C CEOS A 

• 0 *3677 E 4 . 2* O » .0 * 3 0 6E4 • 2 * 0 »* 

c CEOS B . - ‘ 

• 0 . 36 *aC* . 2*0» .0 #36S*C*. 2*C. * . 

C OGD 1 

' . 0.3636E* • 2*0 • *0 *37 19EA.2*0. • 

C OGO 2 

• 0.352E4 .240 • * 0* 373E*#2*0 • • > 

C OGO 3 

• 0.3519E*. 0.85 C6E- 2.0 .2376E-6 .0. 3731 E* .- « 5597E- 2 • 0 . 35 35E-6. 

C OGO 4 

• 0. 3599E4. C. 60 14 E- 2 .0 • *39 *E- 6 . 0 • 37* 0E4 . 0 • 9 3**E-2 . 0 • *5 87E- 6 . 

C OGO 5 

. 0*3797E*. 2*0 . .0 .3880E*. 2*0. « 

C OGO 6 

0.372DE4.C.6733E-2.0.2410E-6, 0.3732=*.-. 6299E- 2 . 0 • 2* 39S-6, 

• 0.3D27E*.-.6927E-2.0.*66*E-6.0*72A2E*.“.2003E-2.“.*6B5E-6/ 
RETURN 

* Entry proces ci st a. cay .thetgi 
PRETYP t 1 ) = I PTE/ 10 
PRCTYP<2> = 1PPE-PHETYP Cl )* 10 

PREPRQ-.F ALSE. . ■ - - 

DO 1000 1-1.2 . 

tFCPRETf p( I ) .EQ.C) GO TO ICOO 

• ir< I.EO.2)^ GC TO 200 

IFC vtypf:.NC.2) gc to ICC 
ll=PRETYPCl) 

C TRANSIT TIME * 

12s(q<!4ATl)-QQSCl l/GATEC m+9*SD0 
IFCI2.EO.C) GO TCI 1000 


PRDC 

56 

PPOC 

67 

PPOC 

58 

PRDC 

5° 

PRDC 

6^ 

PPOC 

61 

PPOC 

62 

PROC 

63 

PPOC „ 

6* 

PROC U 

66 

PPOC 

66 

PPOC 

67 

PPOC 

66 

PPOC 

AO 

PPOC 

70 

PPOC 

71 

PPOC 

72 

PPOC 

73 

PPOC 

74 

ppnc 

75 

PPOC 

76 

PPOC 

77 

PPOC 

70 

PPOC 

79 

PPOC 

80 

PPOC 

61 

FR“C 

R2 

PPOC 

A3 

PPOC 

fl* 

PPOC 

65 

ppnc 

5 A 

• PPOC 

87 

PPOC 

P5 

PROC 

0P 

-- ' PPOC 

90 

PPOC 

9 1 

PPOC 

92 

PPOC 

9 3 

PPOC 

04 

PROC 

95 

PROC 

96 

PPOC 

97 

PROC 

98 

PPOC 

99 

PPOC 

ICC 

PPOC 

1C 1 

PROC 

1 C 2 

- PPOC 

103 

PPOC 

!C* 

PPOC 

1C5 

PROC 

10* 

ppnc 

107 

PPOC 

* CP 

PPOC 

ICO 

ppnc 

1 1 0 

PPOC 

1 1 1 
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OBSOl=Oasai ♦CATECI X ) *CFLOAT( 121 
TRANTM=DFLOAT( I2)*GATE( in/VLlGHT 
GO TO 1 53 

190 TR4KTM=5{ I S AT 1 J/VL IGHT 
ISO DAY=DAY-T K ANTM/6fc4 CO • 03 
X RECALCULATE 03 6 IT & GREENWICH HOUR ANCLE 
. CALL OR5I T (C AY > 

TH£TG = GRHQAN(CAY* I ST A ) 

GO TO 1030 *. 

200 IF< MTYPfi.NE. 1 ) GO TO Z1 0 

IF< ISTAN3 ( ISTA > ,LT .90 C3 .AND . ISTAN0( ISTA) .NF.B009) GO TO 259 
C DIURNAL A0E3PATICN 

T2 = 10! NT (CAY) 

UT — DAY-T 2 

OCOSLT-9C OS C EL AT (1ST A ) ) 

. , H^UT *2 A .03+9 .85 6500* I DINT (UT*2 & «00)/3. 60 3 

H— H*0TW0 1> I/2A.0C ♦RLON ( ISTA ) «■ THE T G-C*SO 1 

OBSC2=OOSn2+C.C2I3C0*S2P*tS.nD*ncaSLT*DSIN{H>«OSIN(O8Sn2) 
O0SC1=OH5O1 + C. 22CDO*S2R*OCnSLT * DCOS { H 1 /3 COS{ 03SQ2*) 

..C PARALLACTIC REFRACTION 

PSATf l)=UHAT(2. ISATl > 

PSAT{2)-“UHAT< ), ISAT 1 ) 

P5AT ( 3) -0 • 5 CO 

STASAT< 1 )=STAXYZ (2 . I5TA >*XYZ(3. I SAT1 1 
1 . -STAXYZI3 . I STA }*XYZ (2 . ISAT’ > 

STASAT(2) = “STAXYZ( 1 . I STA> *XY2( 3, ISAT1 > 

... +STAXYZC 3. 1STA)*XY?( 1, tSATl ) ' 

ST A SAT (3)— STAXYZ(i « ISTA)*XYZ(2* ISAT! 1 
. —ST AXYZ(2» I S TA ) * XY Z ( 1 * t SAT 1 ) 

T2— PS AT (1 ) $*2 + QS A T (2) * * 2 

UT=STASAT( 1 J **2*ST ASATt 2) **2+STASAT< 31**2 
. T2=DS0RT(T2J 
i3T = 0S09T (UT ) 

DO 205 J=l,3 
PSAT< J1 = t>S AT (J )/T2 

205 STASAT(J) =STASAT (J )/UT 
CO=DOTopQ C PSAT, S TAS AT > 

STPSAT( 1 > -UHATC 3. ISAT 1) *PSAT(2 J-UHATC 2.1 SAT1 ) *0SAT(31 
STPSAT t 2 ) = — ijt- AT (3. ISAT*)* PS AT (11 +UHAT( 1 , l SA T 1) * P S AT ( 3 > 

ST PS ATI 3) =U/-AT ( 2, I SAT H»PSAT(1 )-UHAT{ t ♦ I SA T1 )*o^AT(2) 
UT=OSrjRT( STPSAT ( I) **2+STPSAT ( 2 >**2<ST»SATC 31 **21 
SO=OOTPRD ( STPSAT ,S TAS AT J/UT 
2=G.2S03*0TWCPI-E_EVC ISAT1 ) 

IF< ELEV C l S AT 1) -GT.C.C CD > GO TO 206 
2=0.0 05 
; PRINT 19900 

10000 FORMAT (• 3 ********* *S ELEVATION NEGATIVE. MAXIMUM CORRECTION 
1 «F0R PARALLACTIC REFRACTION USED. ********•«/> 

206 PCCS2 = R( I SATl) *DCOSf Z ) 

IFCRC0S7. GT .1. IOC) GO TO 20 7 
H=1 ,OD5-OEXP{-1 . 3350-AtRCOSZ 1 
GO TO 203 
.297 H=1 .00? 

. 20B DR-0. 43503*4. 848 1 300 * CT AN( 7 1 «H/RCOSZ 

0nSC2=0MS02 ♦OP*CO _ *' 

00SC1=00S01 ♦CR»SO/T2 
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3ber 

197 ; 

PROC 

*.12 

PPOC 

113 

ppnc 

1 1 A 

PPOC 

1 1 5 

PROC 

1 16 

PROC 

117 

PPOC 

l 1 8 

PROC 

119 

PPOC 

1 20 

PROC 

*21 

PROC 

122 

PROC 

•23 

PPOC 

12 * 

PROC 

125 

PROC 

•26 

PROC 

127 

PROC 

• 2P 

PROC 

12Q 

PROC 

130 

PPOC 

131 

PPOC 

! 32 

PROC 

133 

PROC 

13A 

PROC 

135 

PPOC 

136 

PPOC 

1 37 

PPOC 

1 3* 

PPOC 

1 39 

PROC 

1 4 A 

PPOC 

1*1 

PPOC 

1*2 

PROC 

’.A3 

PPOC 

1 4 4 

PROC 

• 45 

PROC 

1 4 A 

PPOC 

•47 

PPOC 

I 4? 

PROC 

149 

PROC 

150 

PPOC 

1^1 

PPOC 

152 

PROC 

153 

PROC 

1 54 

PROC 

155 

ppnc 

156 

PROC 

157 

PROC 

• 55 

pnne 

159 

ppnc 

160 

PPOC 

161 

PPOC 

16 2 

ppnc 

163 

PROC 

• 64 

PROC 

165 

ppnc 

166 

PPOC 

1 67 
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C* ANNUAL ATEPRATTCN 
203 J — 1ST AND < 1 ST A ) 

ire .NOT. < J.E0.60G3.0R .J.EQ. 801 5 . OR . J - FO . 80 1 3. OP . J.?0. 80 30. OP. 

m J..E0.6C 1 4.0R.J. CO • €0 1 B.OR .J .f;0 .6023 .OP .J.r 0.60 27.03. 

« «J.EO. iO 35. OR • J. EO • 6 3 A 2 .HR «J • EO • 6051 .OR. J.FO *6052. OR. 

* J.EO.OA 31 .OR. J. EO . 5432) ) GO TO 1000 

OJ=OJUU(OAY) % _ • 

CO=EON{ DJ . SQ .DR . E) * • . • 

CALL EPHF M C C AY » « FALSE . > ‘ • * 

ce-ocos ( e i . • . . 

L— D AT AN2 { SUNY *CE *SUNX ) 

CL=OCOS(L ) 

SL=CL*SUNY/ <SUNX*CE) 

CA— DCOS ( 08 S C 1 1 
SA- DS IN(ORSOl) 

CO=OCOS O8S02) * ... 

SO=DSlN( 33S02> 

T£=DSIN(E )/CF. 

09S31 =COS D1 -20 .503 *S 29* (C A* CL* CE+SA* SL) /CD * 

OOS 02 = OHS 02—20 • 5 03 *S2R*<CL*CE*(TE*CD-SA*SD)+CA*SD*SL) 

• 60 TO 10C0 

210 SINE = REN V ( 3 » IS AT 1 ) 

SMINDX=5T pNOX 

IF (SRFNPX .NS.O .DO) SR IN0X=SPFN0 X 
i IFCMTYPE.GT.2) GO TO 260 
VC0RR=RCONST*SRINDX 

|F (VMFCHN i VCO« a VCOKiS*KEFIONeKTYPE.X3TA.OAYl 

IF I MrYMe. LU. JJ G'J i j 220 , 

IFCPRET YP( 2 ) .GT .2) GO TO 215 . 

C RANGE REFRACT l CN # ‘ .. ’ ' • 

DBS 01 — ODSO 1 — VCORR/ fO . 02 600 + S JNE ) 

GO TO 10C0 *■ 

215 COTE=DSD9T t 1 .020-S INE**2) /S INE 
C RANGE P EF R ACT l CN FOR FRENCH LASER 

O0SO1 =OSSOi -SRFNDX/t S 1NF + COTE* 1 .CD-3 > 

GO TO 10C0 

c APPLY REFRACTION CORRECT I CN TO RANGE PATE DATA 
220 RATEl=0*5f)nT (7 . 1ST A, C COT > . . 

OBSC.lsOHSni +VCCRF*EDOT*DSORT<1 . 0 0 0- S INE * *2 ) /( 0 . 02630+ ST NE) **2 
GO TO 103 3 * ' 

260 CCSF2=1 .DO -S INE«*2 
- COSE-DSRRT ( CCSE2 ) 

' VC0RR=1 .D-6*SR INPX 

IF ( VHFCHN • OR .MTY r*E . EQ .5 5 VCORR = VCCPR +REF ION( NT YPE .1 STA . DAY> 
OELTAE=-VCORP/ ( .Cl 6A4C3 + . 1 93D3* : S|N'E/CnSE) 

• IF { MT Y °E . C O . 7 ) GO TO 280 

SINAsRENY t 3. IS AT D/COSE • 

- COSAsRSNV C 2. ISAT 1 ) /COSE 
IF< VTYRE. 00.6) GO TO 27C 

C APPLY REFRACT ION CORRECTION TO MIN l 'TRAC* DATA 
C9SCl=0RSni-SlNA*S ine*deltar 

OnS02=0S3n2-C0SA*5 inf»peltae ’ . 

GO TO 1?C0 

c APPLY REFRACT I CN CORRECT I CN TO X-Y ANGLE DATA 

2T0 GBSOt =08SOl-SINAOFLT AE/( SINE* * 2*MN4«*2*CCSE2 ) 

ons 02=0 ns 02 -cos a*s ine*oeltae/dsort( i • cr>o-cosF 2 *cnsA** 2 > 


PPOC 

1 66 

PPOC 

i 6R 

PPOC 

170 

ppnc 

171 

PROC 

172 

PPOC 

173 

PPOC 

\7\ 

PROC 

175 

PPOC 

176 

PROC 

) 7? 

PROC 

178 

PPOC 

170 

PPOC 

ieo 

PROC 

lei 

PROC 

182 

PROC 

1 83 

PROC 

104 . 

PROC 

185 

PPOC 

166 

PROC 

167 

PROC 

1 PP 

PPOC 

1 BO 

PROC 

loo 

PPOC 

191 

PPOC 

192 

PPOC 

5 9 3 

"PCC 

1 °A 

PPOC 

: ?f. 

PROC 

5^6 

PROC 

197 

PPOC 

198 

PPOC 

5 99 

PPOC 

?co 

PROC 

20 1 

' PROC 

902 

PROC 

203 

PPOC 

204 

PPOC 

205 

PPOC 

206 

PPOC 

207 

PROC 

?Ofl 

l*POC 

poo 


ppoc ?.lc 

P°OC 211 
PPOC 212 

proc ri 3 

PROC 2 1 4 
PROC ? 1 5 
PPOC ? 1 6 
PROC 217 
PROC 210 
PPOC 21° 
PPOC ??o 
PPOC ??.l 
PROC 222 
PPOC 223 
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CO TO 1000 

C APPLY PEFRACTIDN CORRECTION TO ELEVATION ANGLE OATA 
260 COS 02=nasn2^CELT AE 
1000 CONTINUE 

IFtVTYPF.NE.2.CR.CHANEL«EQ.C ) RETURN 
C APPLY TRANSPONDER DELAY CORRECTION TO RANGE DATA 
I S AT- NU W 3R A ( IS AT ID( I SAT 1 ) . KS AT NO . NSA TNO) 

•. .IF( IS AT.CQ .0 ) RETURN . 

ISAT=( 1SAT+2I/0 ’ 

IF ( 1SAT . F0‘. 3 .AND .CHAN EL «CT* 3 ) GO TO 265 
GO TO 293 
265 ISATs;ISAT + l 

CHANEL= CHANEL- 3 
IF ( CHANEL * GT « 1 > RETURN 
290 CH A NEL= (CHANCL+2 )/2 

RDCT=CRSOOT (2, ISTA.RD0T2) 

. DELR=Oi DO 

DO 300 1 = 1 .3 / 

300. DELR= DEL R ♦ ROOT + * ( I - ll’t'TRANS 3 ! I .CHANEL. I SAT) 
DELR=-DFLR* .5D-9*VLI GHT 
OBSOl =OTS O l ♦ CEL R 
RETURN 
END 

i • 
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PPOC 22* 
PPOC 225 
PROC r»26 
PRQC 227 
PPOC 22 0 
PPOC 2 2 “ v 
PPOC 230 
PPOC 231 
PROC 232 
PPOC 233 
PPOC 234 
PPOC 235 
PROC 236 
PROC 237 
PROC 230 
PPOC 239* 
PROC 240 
PPOC 24 t 
DQOC 242 
PPOC 243 
PPOC ?*4 
PROC 245 
PPOC ?46 
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OC-fc-TT 


P^cftucucATe 

oc-f^ir 


/ J V 

KHCr\i_Cut-A"r<5 
< ? lfceeMioxd‘rt 
Houe. <Vn!C,(£ / 




,2/tf 



’/00a 


Co/zafct foa 

3Xt nz/j/U. 
4ee/z.K/\72:ofJ 



Cotz/zecr foa 
P/t£t\LLATZC 
P-GF/d-ACTXOfJ 







CgCazfct FoK 
Aa/ajv/U- 
/I tiF F£/j TT c fij 
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COfiULcCr rfZf/>!UTf{ 
A*J2) wrzofij 
pO< £€f£/tCT£CA/ 


m 


X tz/iAjqe \ 

\yes. 

a? ply 
% 

T£/{/<JSP0^2><?fZ 
COftCGCTXO/J 
■xr /Vec&ssatzY 


'Reru&j 


8.0-430 














RANDOM 
Page 1 of 3 

. ■ ... . October 1972 

*■ *. ' ' , 

. • • 

" : ’ ' ' RANDOM . " 

DESCRIPTION 

RANDOM is a subroutine used to read, write and 
read/rewrite satellite observation data. 

• ; ; • / , ‘ ‘ • ’ ’ ■ ' - ■ 

Since each measurement must be rewritten after it 
has been preprocessed, direct access methods of I/O are 
required and since large quantities of data are pro- 
cessed, it is necessary to use a large data buffer. 

s ' , 

I 

RANDOM buffers the observation data and calls 
the direct access reading and writing system subrou- 
tines DREAD and DWRITE to perform the I/O operations. 
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KAME 

ENTRY POINT 
RANORD 

RANDWR 


random 

PURPOSE 

TO UNBLOCK & READ OBSERVATIONS e ROH RANDOM ACCESS 
FILE 

TO BLOCK Zr WRITE OBSERVATIONS ON RANDOM ACCESS 

FILE 


CALLING SEQUENCE 

CALL RANDPO 




CALLING SEQUENCE 

CALL RANDWR 




SUBROUTINES USED 

ERROR 




<r 

' COMMON BLOCKS 

PREBLK 



✓ 

INPUT FILES 

IDISK - RANDOM 

ACCESS 

DATA 

file 

OUTPUT FILES 

IDISK - RANDOM 

ACCESS 

OATA 

file 


SUBROUTINE R/N’DRC 
IMPLICIT P E AL* 3 (A-H.C-Z) 

- — - COMMON/PRe HLK/A ( 16 > *• I PEC 

INTEGER A.eUFM6.1l3>.NPEC/lI3/.KBUF/l/.NW0onS/16/ 
LOGICAL WSWTCH/. FALSE ./ 

• EQUIVALENCE (DISK. ID ISO 
.DATA IDI3K/12/ 

K-\ 

CO TO 10 
- ENTRY R AND Vi R 
WSKTCH=.TRUE. 

IC=2 

10 IBUF= (I REC — 1 J/NREC + l 

lFCtnUF « NE «KPJF) CO TO (50 .90. K 

20 JRE C— I PEC- (I FUF-l) fcN R EC 

. GO TO ( 30 . 70 )• K 
C UNBLOCK DATA 

30 DO 40 I=1,NW0RDS • . 

40 ‘ AI I l-QUFI I » J«EC ) 

RETURN 

*0 IF ( WSWTCH) CALL OWR ITE C IDISK .KBUF. BUF ) 

'•CBUF— IB JF 

wswtch=.false. . 

c READ BLCCK ; 

. CALL OPEADf ICISK«<RUF,*UF.ft60) 

GO TO 20 

ISO CALL ERROR (l 1*10 ISK ) 

RETURN 
C BLOCK CAT ft 
70 DO 60 1 = 1 * NWCRRS 


RAND 26 
KANU Z~ 
RAND 26 
P AND 2R 
RAND 30 
RAND 31 
PANO 32 
RAND 33 
„ RAND 3 A 
RAND 35 
RAND 36 
RAND 37 
PAND 3ft 
RAND 3R 
PAND AO 
RAND 41 
RAND 4 2 
RAND 43 
RAND 4 4 
RAND 4S 
PAND 46 
RAND 47 
PAND 4 A 
• PAND 40 
PAND 50 
PAND 5 \ 
PAND 52 
RAND 5 3 
RAND 54 
RAND 55 
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eo BU F (I * JREC > = A< I > 

RETURN 

C %»RI TE BLOCK 

90 CALL. DWRITE C ID I SK* K RU F . BUF > 
KBl>F=IRUF 
CO TO 2 3 

. *1000 FORMATtlX.*Za*I6»20A4*4ClX*ZB)) 
END . • 


RAND 56 
RAND 5 7 
RAND 5 S 
RAND 5° 
RAND *C 
RAND M 
RAND 62 
RAND 63 

a; 
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REARG 


DESCRIPTION ** 

KEARG recomputes back values of acceleration and the 
sum array for given changes in stepsize. If the Step is to 
be increased, first REARG will double the stepsize and then 
reduce to the desired stepsize. When the step is decreased, 
interpolation is used to obtain midpoint values for the in- 
tegration values, followed by calls to F and VEVAL to 
evaluate the accelerations at each midpoint. 
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REARG 

PURPOSE 


TO R ECO M®UTE BACK VALUES OF ACCELERATION AND THE 
SUM ARRAY FOR GIVEN CHANGES IN STEPSIZE 

CALLING SEQUENCE 

CALL RE ARGC M. M 1. 1 OR DP I « I OR DPR .H 1 ,H2 , T1 • T2 • FC T ,NN, 
SUM.SUMl tCOEF 3 .COEPV, Y, Y l , VAR » FCTl ,P) 

• SYMBOL 

TYPE 

DESCRIPTION ■ 

M 

I 

INPUT - DISPLACEMENT VALUF S USED BY INTEGRATOR 

MX 

I 

-INPUT - DISPLACEMENT VALUES USED BY INTEGRATOR 

. • JORDR1 

1 

INPUT “ ORDER 

- • XOROER 

I 

INPUT - OROER 

ft # . 

HI 

DP 

INPUT - STEPSIZE ‘ 

H2 

DP 

INPUT - STEPSIZE 

.1 

• TX 

OP 

INPUT - TIME \ . 

T2 

OP 

INPUT - TIME * 

rcr 
<3*1 ) 

DP 

«>miv _ ** 4 •*%* »« •» • < «- »u «r «••»«*«?• fn »»f f>»i 

KN 

I 

INPUT * NUMBER OF EQUATIONS 

SUM 

(2,3,1 » 

DP 

OUTPUT - SUM ARRAY USED 3Y INTEGRATOR AND 

INTERPOLATOR ■' 

5UM1 

(2.3) 

OP 

OUTPUT - SUM ARRAY USED BY INTEGRATOR AND ' 

INTERPOLATOR • 

COEFP 

(11 

Do 

INPUT - POS IT I ON COEFF ICIENTS 

COEFV 

til 

D 3 

INPUT - VELOCITY COEFFICIENTS 

V 

- ' (6, 1 ) 

DP 

INPUT - ARRAY OF STATE VARIABLES 

VI 

(6) 

D p 

INPUT - ARRAY OF STATE VARIABLES 

VAR 

L 

i. • 

INPUT — VARIATIONAL EQUATION SWITCH 

FCTl 

(31 

DP 

INPUT - HACK VALUES OF ACCELERATION 

m 

P 

Do 

INPUT - FRACTIONAL ST£PSIZE CHANGE 
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SO0ROUTINES USED 

INTRP 

F 


VEVAL 



COMMON CLOCKS 

NONE 



•• 



INPUT FILES 

NONE 






» 

OUTPUT FILES 

' • . f * * . 

PRINTER 

- 

• 

• 





SUB ROUT IN E REAPGCM. M 1 . ICPQR 1 » I ORDER. HI .H2. T1.T2,= : CT.NN.SUM 

« 

REAR 

fiR 


• SUM1 . COEFP .COEFV, Y . Y1 , VAR.FCTi.PJ 


PEAR 

AQ 


IMPLICIT RE4L*f3 (A-H.C-Z) 


PEAR 

7C 


LOGICAL SW ITCH. VAR .BACK 


REAR 

7 1 


DIMENSION FCT{3.1).ACC(3).SUH( 2, 3, 1 ) ,SUM l ( 2,3) *COEF»(l>. 

COEF VC1 

IRETAR 

7 7 


• . «Y<6« 1 ) .Y1 (6 >• .FCT1I3) 


REAR 

7 1 

c 

TEMPORARY PRINT STATEMENT , 


REAR 

7 4 


. H”P*H2 


REAR 

75 


WRITEC6.il VAR.p.H 


REAR 

7 6 


1 FORMAT ( IX • 3G20 • 8 J 


REAR 

77 


H-H2 * 


REAR 

7?, 


FACT=P 


REAR 

75 


NECN=1 


REAR 

SO 

4 • 

IFC VAR)NEON=NN-l 


REAR 

61 


10L2-I ORDER-2 * _ 


REAR 

nZ 


IOL2- 1UL2 + I 


kEAk 

A 3 


IFCFACT ,LT .1 .DO >GO TO IOC 


RFAR 

a 4 

c 

COMPUTE POSITIONS C VELOCITY AT INTEGRATOR TIMF 


rfar 

Q 5 


5 CALL INTRP (0 .00 • H2 . 1 ORDER .NEON .Y.FCT.M. SU V I 

. 

REAR 



• 9 DO 10 1=1 . I 0L2 . 


PEAR 

67 

— • — 

K1 = M -I ... 

. 

RFAR 

d a 


K2=M— 2* I 


QFAP 

S 9 


00 10 L = 1.NECN 


RFAR 

Q 


LL=CL-l )*M . 


REAR 

91 


FCTC1.LL + K1 1-FCTCl .LL4K2) 


PEAR 

92 


FCTC2.LL+K1 )=FCTC2.LL4<2) 


-REAR 

9 3 


FCT (3.LL+K1 )=FCT (3.LL 4K2) 


REAP 

94 


10 CONTINUE 


REAR 

95 


11 H=H+H • " 


REAR 

05 


H2=H2+H2 


REAR 

97 


IF ( .NOT.VARIHl =H1+H1 


RFAR 

9?. 


J3=l 


PEAR 

95 

c 

RECOMPUTE SUMS 


PEAR 

ICO 

* 

CO- TO 1000 


RFAR 

1 C 1 

# 

20 CONTINUE 


PEAR 

10 2 


IF(FACT.GE*2.D0> RETURN 


REAR 

3 0 3 


FACT=FACT * .SCO 


fi p AP 

* 04 


100 SWITCH = .FALSE. 


RFAP 

1 05 


OEltah=fact*h 


PEAR 

3 0 5 


XFf (H-OCLT AH-OELTAH) . E0.C.P0JSWl^CH=.TOUF. 


PEAR 

' 07 


I=G 


REAR 

1 -i ~ 

c 

INTERPOLATE FOR CESIRcO OACK VALUE TIMES 


PF AP 

* o° 


101 1=141 ' 


REAP 

1 1 0 


S1=-DFL0AT(I I4DCLTAH * 


RFAR 

\ 1 1 
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TIM=T2*51 

S«(T1 M-ti ) /HI 

CALL INTPPIS.Hl.IORDRt.I.Yl.FCTl.Ml, SUM1 > 

IFC VAR) CALL F { T I M, Y l * AC C« *TR UF • ) 

IFC .NOT.V ARJCALL F ( T I Y, Y l . FC T( 1 . M- I DL2- I ) • • ? 4L SE • ) 
IF( .NOT .V AR)GO TC 105 
S= C TI M— T 2 1 / H2 

CALL IN T RP (S *H2, IQROEfi.NEONi Yt F CT,M , SUM ) 

102 CALL VEVAL(Y,FCT (1 ,M- ICL2- I 1 ,6* . TRUE .,M 5 
C IF RATIO EQUALS 1/2. JUST RECOMPUTE EVERY OTHER DOIHT 
105 1FI .UOT.SW ITCH1G0 TQ 110 

1 = 1*1 

IFC l.GT .1 CL2 JGO TO 110 

LL=M-I0L2-I 

LLL=M— (J/2) 

FCTC1* LL)=FCT (l.LLL) 

FCTC2. LL 1 =FCT(2.LLL ) 

FCTC3. LL ) =FCT ( 3.LLL ) 

110 IF C r.LT. I 0L2 JGO TO 1CI « 

C COMPUTE POSITION C. VELOCITY AT INTFRGRATOR TIME 
- -441 -CALL I NTPP ( 0 *D0 . H2 • I ORDER-. NEON »Y»FCT,M .SUM) 

C REPLACE BACK VALUES 
DO IIS L=1 .NEON 
‘ LM=L*M 

DO 115 1=1, IOL 2 

LL-LM-l 

IH. =LL— I OL 2 

FCT{! !LU”FCT{ ’ jLLL) 

_FCTC2.LL) =FCT( 2.LLL) 

FCT C3.LL) = P CT(3.LLL) 

115 CONTINUE 

h=d‘eltah . 

H2 = DELT AM 

IFC *NOT ,VAR JH1=0ELTAH 
•13=2 

C RECOMPUTE SUMS 

GO TO ICC 0 _ 

' "‘123 CONTINUE 
RETURN 

1000 CONTINUE 
HS=H**2 

uO 2C30 N=1«KE0N 
NM=MM 
UL=NM +1 
DO 1030 J= 1 , 2 
• * A=0*00 

. BsO -00 

DO 1029 1=1, I0L2 
LL=LLL- I 

A=A— COFFV { I > <-FCT ( J ,LL ) 

B=n— COC p P ( I ) *F CT. <J . LL ) 

1029 CONTINUE’ 

. 1 02B A=A-COi‘-'V C I0L 1 J*FCT< J , NM — I OL2 ) ♦FCTf J ,NM ) 

A=Y { J+3, N ) /H+ A 
Sum ( i » j « n > = a 

SUM (2, J,N ) =Y{J.N)/HS fA**n 
| C30 COST 1 r,U r 

CO Tfl m.l20),J3 
RETURN 

ENO ■ . - •' 
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REAR 

112 

REAR 

! 13 

REAP 

1 1 A 

REAR 

115 

RFAP 

1 1 6 

REAP 

1 IT 

PEAR 

110 

REAP 

IIP 

PE A,Q 

120 

REAR 

1 2 1 

REAP 

122 

REAR 

123 

REAR 

12* 

RFAP 

125 

REAP 

126 

PFAP 

127 

REAP 

' 23 

REAR 

129 

REAP 

1 30 

RFAR 

131 

PFAP 

132 

RFAP 

133 

REAP 

13A 

REAP 

1 35 

REAR 

: 36 

RFAP 

1 3T 

PEAR 

no 

OE A*? 

1 20 

FFAR 

1 A 0 

PFAP 

< At 

RFAR 

1 A2 

REAR 

1 *3 

PEAR 

1 A4 

REAR 

IAS 

PFAR 

1 A 6 

REAP 

1 A 7 

REAR 

IAS 

PFAO 

140 

REAR 

1 50 

REAR 

151 

RFAP 

1 52 

RFAP 

1 53 

RFAR 

154 

REAR 

155 

RFAP 

156 

PFAR 

157 

RFAR 

1 55 

RFAR 

159 

RFAR 

160 

PEAR 

161 

REAR 

1 62 

REAP 

16 3 

REAP 

1 64. 

PTAR 

1 <5 

RFAR 

166 

RFAP 

» 67 

FF AR 

166 

OFAP 

* 6 9 

RFAR 

! 70 

RPAR 

171 
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- , ; * • 

' ^ ■. * ✓ V 

* . REFCOR 

DESCRIPTION 

Subroutine REFCOR rotates a vector between the 
true equator and equinox of a reference date and the true 
equator and equinox of date. . 

This routine invokes subroutines PRECES and NUTATE 
at the start of each arc to obtain the precession rota- 
tion matrix from the reference to 1950.0 and the nutation 
rotation matrix from mean to true equator and equinox of 
the reference date. These latter are then inverted and 
l_„x.ombi.ned._to rotate from the mean equator and equinox of 
1950.0 to the reference time. 

i - * 

The routine obtains rotation matrices from PRECES 
and NUTATE for consecutive days, stepping in time as 
required by the input time. .These matrices are combined 
with the above rotation matrix from mean equator and 
equinox of 1950.0 to the reference time to produce a 
rotation matrix for 0 hours on each consecutive day. - 

REFCOR linearly interpolates between these two 
— consecutive rotation matrices to obtain the appropriate 
■ rotation matrix for the time of date. The input vector 
— dr5"“then rotated either to or from the reference system. 
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*AM£ 

PURPOSF 

• 

CALLING SEQUENCE 
SYPOCL ' TYPE 
DAY DP 

TO L 

' .. _JC ' DP 


13) 

SUBROUTINES USED 
COMMON BLOCKS 
INPUT FILES 
CUT PUT FILES 
REFERENCES 


REFCOR 

TO PRECESS A VECTOR BETWEEN THE TRUC EQUATOR AND 
EQUINOX CF A REFERENCE TIME AND THE TRUE EQUATOR 
AND EQUINOX OF DATE 

CALL REFCOR (DAY, TO* X) . * .. . 

DESCRIPTION . 

INPUT — NUMBER OF DAYS FROM JAN 0*0 OF REFERENCE 
YEAR • 

INPUT - .TRUE • - CONVERT FROM TRUE OF DATE TO TRUE 

OF REFERENCE DATE 

•FALSE* - CONVERT FROM TRUE OF REFERENCE 
DATE TO TRUE 0 F DATE 

INPUT - VECTOR TO or CONVFQTFD 

OUTPUT - CONVERTED VECTOR 

PRECES NUTATE MULMAT 

INXTBK CTIME .. . 

NONE 

NONE . " 

•GEODYN SYSTEMS DESCRIPTION* 

VOLUME 1 - GEODYN DOCUMENTATION 


. a; 


SUBROUTINE REFCORIDAY. TO, X) 

REAL+8 3 , 3->.N( 3, 3) . REFC 3* 3). PREC3.3.2 >* X(3)« YC3) .DAY.DAYP* 
*• DAY RE F, PREINT ( 3* 3) 

REAL*© DAY SV /— t .CDS/ 

INTEGER 1 O AY ( 2 ) /2*“ 1 / 

- COMMON/ INITBK/IG2(SA > , NOT 1ST * I G3 ( 2) 

- - LOGICAL NOTIST 

COMMON/ CT I W c/DAT AE P ( 2 )*DAYPFF, GIC 19) 

• ' LOGICAL TO 

IFC.NOT.NO T 1 5T > CAYSV=-1.CPC 
IFCCAY.EQ. CAYSV ) GO TO 72 

• IFCNC1T1ST) GO TO 20 * - - - 

NOT IST = *r RUE. 

C GET PRECESSION G NUTATION FOR REFFRENCF TIME 

CALL PRICES (CAYPFFtP ) • * 

CALL NUT AT E.( CAYRCr ,N ) 

C PREMUTIFLY t. TRANSPO 

DO 10 1=1.3 . 

00 10 J=1 .3 ' 

REF Cl , JI=G .DC 


RFFC 

■a 

PF^C 

3 

RFFC 

3 

REFC 

3 

RF P C 

C 

PEFC 

A 

PEFC 

4 

PEFC 

4 

REFC 

A 

PEFC 

A 

PEFC 

A 

- REFC- 

A 

PF C C 

4 

PEFC 

A 

PFFC 

c 

RFFC 

c 

PFFC 

-c 

PEFC 

c 

RF C C 

e 

PEFC 

c 
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DO 10 K = i ,3 

10 REF(I ,J) = P( J.K )*N(K. x >4-R£FC I * J > 

C ARE VALUES NEEDED FOR INTERPOLATION ? 

20 lO=0AY 

IFC ID»EQ. Z DAYt 11 ) CO TO 60 

INF ED = 1 . ' 

C 2 VALUES OR ONLY THE SECOND ? ' 

JFC ID «NE • ICAY(2>) GO TO IS . • 

INEED=2 ' * 

C 1 NEED ONLY THE SECOND ... SAVE THE PREVIOUS VALUES 
DO 30 1=1.3 ^ 

DO 39 J = 1 ,3 ’ ' , ' 

30 PRE (I ♦ J, 1 >=PRE( I .J, 2) 

IDAY{ 1 ) = I 0AY<2 ) 

C CET PRECESSION C NUTATION VALUFS FOR DAY Or INTEREST 
35 OO 50 M.slNEEC.2 
I DAY ( M) = I O 4-M— 1 

DAY Ps I D AY ( M ) « 

CALL PRECF. SICAYD.P ) . 

CALL-NUT AT F<CAYP*N ) 

C PRE MULT Z PLY *’ I TH REFERENCE VALUES 
50 CALL MULYAKPREC 1, 1 , M ). REF, p,N ) 

( C HCBT A I N INTERPOLATED POTATION MATRIX 
60 DA Y P- D A Y - DFLO AT { X D AY ( 1J) , 

DO 70 1=1.3 
DO 70 J = I . 3 

70 PRE INT( I . j ) = PRE( I, J, 1 }*DAYP* pOE( I, J, 2>-PRE( I, J, 1 )) 
_C -ROTATE INPUT VECTOR , 

7 ? IFCTQ) GO TO 60 . - 

C ROTATE FROM REFERENCE SYSTEM 

. ..DO’ 75 1 = 1 .3 • ' 

YUJ = 0.9D0 
. OO 75 J”! * 3 

75 Y(f )«Y{ I) +PREINTCJ »I I *X( J) 

CO TO QO 

. C ROTATE TO REFERENCE SYSTEM 

60 do 85 1=1,3 . ' 

YU > = 0-000 
DO 85 J = i , 3 

85 YC I)=YI I M-PRCINT C I ♦ J 1 *XC J ) 

C STORE RESULT IN INPUT VECTOR _ 

_* 90 DO ICO 1 = 1.3 

ioo xc i > — y ( i j . . 

Daysv =d ay 
RETURN 
1 END 


PFFC 

56 

RFFC 

57 

REP c 

58 

REFC 

59 

REFC 

60 

REFC 

*61 

P£F c 

62 

RFFC 

6? 

RFFC 

6 A 

REFC 

6? 

REFC 

66 

REFC 

67 

RFFC 

6 5 

PFFC 

69 

REFC , 

70 

REFC 

71 

REFC 

72 

REFC 

73 

RFFC 

7A 

REFC 

75 

PFFC 

76 

REFC 

77 

REFC 

76 

REFC 

7° 

PFFC 

ec 

PEFC 

61 

RFFC 

«2 

PF.FC 

*3 

PFFC 

P4 

PFFC 


' PFFC 

9fc 

• PEFC 

97 

PFFC 

6 9 

PEFC 

89 

REFC 

R? 

PF C C 

9 J 

PEFC 

ft 2 

REFC 

9 3 

PEFC 

9A 

* PEFC 

96 

REFC 

96 

PFFC 

97 

REFC 

9* 

PFFC 

ft Q 

PEFC 

1 C 0 

PEFC 

1C 1 


— 


® n * * o 
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NAME 

PURPOSE 

CALLING SEQUENCE 
. SYMBOL T Y PE 
HTYPE I. 

ISTA I 

DAY DP 

RCFJON ft 
SUBROUTINES USED 

common Blocks 
Input files 
output files 


RE FJ ON 

DUMMY IONOSPHERIC REFRACTION SUBROUTINE 

XssREFIONCMTYPS , ISTA, OAYl 

OESCR IP TION \ 

1NPJT - MEASUREMENT TYPE 

' * • 

INPUT - STATION INDEX 

INPUT - TIME IN DAYS FROM JAN 0*0 OF THE PEFERENCF 
YEAR 

OUTPUT - IONOSHCPIC RETRACTION VARIATION 
NONE • 

NONE 

NONE 

NONE 





FUNCTION RfvPIONlMTVPE . 1ST A, DAY ) 
REF I ON= * • 

- RETURN 
END 


FFFI 
»FFI 
PEFI 
PFFI 32 


U 'J N 
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- REPRODUCIBILITY OF THE 

tSUQINAL PAGE JS POOB^ 

NAME RESPAR 

ENTRY POINT PURPOSE . 

RESPR1 INITIALIZATION 

* 

RESPAR TO CALCULATE Th€ P ART I AL S or GEHPOTENTTAL u* 

RESONANCE COEFFICIENTS REQUESTING ADJUSTMENT 

CALLING SEQUENCE CALL RE SPR 1 < I N CX C S . GPS I G. GPP AR ) 


SYMPCL 

TYPE 

DESCRIPTION 

INDXCS 

(3.1 ) 

♦ 

1*2 

INPUT - 

INDICES OF ADJUSTED GE 0»OT£ NT I AL 
COEFFICIENTS 

GPS l G 
C1Y 

DP 

INPUT - 

SIGMAS ON ADJUSTED GEOP&TENTI AL 
COEFFICIENTS 

. GRPAR 

DP 

OUTPUT 

- PART I AL S OF FORCE MODEL PARAMETERS 


t C3.1) 

CALLING SEQUENCE CALL RESPAW 
SUBROUTINES USED NONE 

COMMON cLGCsS CP ARAM . INTnuM vk6lOk A t Z 

INPUT "F ILES NONE 

♦ 

.CUTPUT FILES NONE . 

REFERENCES * GEO DYN SYSTEMS DESCRIPTION* 

VOLUME 1 - GEOCYN DOCUMENTATION 


SUBROUTINE RES PR 1 ( I N D XCS , GP S IG . GRPAR ) 

IMPLICIT R E AL* 8 <A-H,C-Z> 

LOGICAL CMPGPR 
INTEGERS? INCXCS 

DIMENSION INCXCS <3. 1 ) .GPS 1GC 1 > . GRPAR < 3. 1 ) 

. .* COK'VON/C PAR AM/ NSTAi NH 4ST.NSTEST.NOIM.M3I AS.NGPCt • NGPC2 * NGPCOM 

• NC5EST . CMPGPR.L IM i ,L |M2. NOEN . NDENST. N TI DST . NT I OE N . I NN9SW * 

j, NCONST , NOCONS 

COMMON*/ INTELK/THCOTI < £3).NEON< 2) . ADDR<7) 

COMMON/ VP HLCK/XY SQ .CS ML ( 31.2).UlDf?}*P( 33.30>»AQRN{ 301 . 

• TPSIMI 3Q) 

COMMON/ X V //X. Y.Z.XDOT, YDO T . ZDO T . R . P SO . I S A T . I FORCE < ? > 

EOtllVALFNCE ICP.P(2.1)I 

RETURN 

ENT R T RfSP AR . 

Cl— TPSI V (2 >/RSQ 

C2 = C P/P . \ 


, PFSP 3P '■ 
RESP ao 
PESP 4 l 
RFSP 42 
RESP 43 
DFSP A A 
RFSP AS 
.. RESP A A 
RFSP A 7 
RFSP Ap 

RESP 40 
PESP SO 
RFSP 51 
RFSP 52 ; 
RFSP 53 ’ 
PESP 54 
RESP 5S ; 
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^EPBODXj 'Z OF THB '* , •• •• 

0BMNAL PAGE JS BOOBu* . ... 


XI = Nr QM( tS AT )— NCSEST— 7— NT IDEM 
•"00-100 tal.NCSEST 

ic*inoxcs { i ♦ n 

IF(XC.Lr.l) GO TO 100 
11=11+1 
ICC =3— I C 
N=XNOXCS( 2 . I ) 
k=xndxcs(3* i> 

M1=V+1 

C3=A0RN(N > * GPS I G (I ) 

C4=C3*CVJL<M1. IC) 

FCP=-CA*P< Ml ,N)*nFLOAT(N+l)/R 
FCL=C3*CSML ( Ml « I CC ) *P (M 1 , n j ♦OFLOATtm 
IFC1C.E0.1) FCL=-FCL 
FCP = C^< r {P(Ml+l,N>-TPSIM(Ml)*P(Ml,N)> 
C3=FCR/R 
„ C4=C3-C1 *FCP 

• CS^fcl/xyscj 

GRP AR (1*2 r ) = X«C4-Y*C5 

• GR»ARC2 , * I |^Y*C4 +X*C5 

CRPAPC3.il > = 2*C3*FCP*C2 
100 CONTI NJS 

• RETURN 

END ' 


RFSP 

5* 

RFSP 

«; ' 

RFSP 

.5 C . 

RFSP 

5P 

PFSP 

AO 

RF$*» 

61 

RFSP 

62 

PFSP 

6? 

RE$p 

6A 

PESP 

65 

RFSP 

66 

PESP 

67 

PPSP 

6 f 

PESP 

6Q 

PESP 

TO 

RFSP < 

71 

RF.SP 

72 

PERP 

73 

PESP 

74 

PESP 

75 

PFSP 

75 

PESO 

77 

RF.SP 

76 

RFSP 

79 
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NAME 

RFTMCD 



PURPOSE 

TO CHECK 
DETERM I N 
AND THE 

AN 80 CHARACTER ALPHANUMERIC STRING TO 
E IF THE FIRST 6 • CHARACTERS AO= NU«=PALS 
REMAINING 74 CHARACTERS ARE BLANKS 

CALLING SEQUENCE 

X=RFTMCC(A> 


SYMBOL TYPE 

DESCRIPTION 


A I«2 

INPUT - 

CHARACTER STRING 


RFTM CO L 

OUTPUT - 

•TRUE. WHEN FIRST 6 CHARACTFRS ARE 
.NUMERALS AND REMAINING 74 ARE BLANKS 

SU9R0UTINES USED 

NONE 

/ 

I 

■"COMMON CLOCKS 

NONE 

*> 


INPUT FILES 

NONE 


: 

OUTPUT FILES 

NOSE 




OF, THE 
: IS POOE'-; 


OMGIKAL 


•LOGICAL FUNCTION RFTMCD(A) " ( 

I NT EGER * 2 All)* NLH BR 5 ( 1 Q > « 8L % x 

- DATA. NUM^OS/ 1HD* 1H1 * 1 H2* lH3* 1H4. XH«# 1H6. IH7. I H 3 , 1 HQ / , 3L/i H / 

RFTMCD=.F ALSF. 

DO 20 1=1 .6 

DO 10 J** • 10 

JFf A( I) .EQ.NUMBRSI J ) J GO TO 20 
.CONTINUE ... ...... 

RETURN 

20 CONTINUE . 

DO 30 I =7. 80 
IF« A( I) .NS .EL) RETURN 
30 .CONTINUE 

RFTMCD= -TRUE • 

* RETURN : 

END . 


PF 1 <* £ t 

RF‘ T M 2« 
pCTM 1*0 
• PFTM 30 
RF r M 31 
PFTM 32 
RFTM 33 
RPTM ?4 
PFTM 35 
RFTM 36 

RP.TM 37 

RFTM 33 
RFTM 3R 
RFTM AO 
RFTM 4 \ 
RFTM A2 
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NAME 


RHSCMP 


PURPOSE 


•TO COMPUTE RMS. RNO • AND MEAN FROM SUMMED 
INFORMATION • 


CALLING SEQJENCE 

CALL RMSCMP (NSUM .ASUM. NTYPE) 


SYMBOL 

TYPE 

DESCRIPTION 


NSUM 
(3 • 2 ) 

I 

INPUT _ MEASUREMENT TYPE, NUMStR OF RESIDUALS. ANO 
NUMBER OF WEIGHTED RESIDUAL RATIOS =0^ 

THIS PARTICULAR 5 T A T I ON , S A T ELL I T= . AND 
MEASUREMENT T Y°E 

ASUM 
(8*1 > 

*R 

INPUT - SUMMING ARRAYS FOR THIS PARTICULAR 
SATELLITE F. MEASUREMENT TYRE' 

STATION 


~ — ♦fFYPE - l - — IMPJT — -MAXIMUM NUMBER OF POSS1RLE TYPF5 P05 THIS 

STATION C SATELLITE 
(MAX. ss 4 »?bP Tydfs 1-1 A 

■ 2 FOR T Y 3 E S 27-301 

4 

SUBROUTINES US EO NONE . 



COMMON ELOC<S CSTINF 

INPUT F ILES NuNT 


CUTPUT FILES none 


REFERENCES 


•GEODYN SYSTEMS DESCRIPTION* 
VOLUME I - GFflDYN ODCUMENT AT I ON 



SUBROUTINE R VS CMP( NSUM. ASUM . NT YPE ) ‘ R*SC 37 

DIMENSION NSUM { 3 , L ) , A 5UM< b. 1 ) RMSC 3ft 

COMMON/ CS T INF/ME ASNO ( A) ,NOns(4 > . R0MEAN( A) « RMSO ( 4) ,PNDC4 I , PMSC 7B 

• ME ASX r (4 ) ,WTMEAN( 4 ), RmS*T 0( 4 } , WTRND( 4 > # TY=>RMS< 3? )« NO TYPE (2 tSOI .RMSC 4 0 

• 8SUM(S. 12UPMSALL ( 2C J.NOALL ( 3 0 ) . NO WTO 3 ,L3 A S E PMSC 41 

DO 30 0 I = X*NTYP-E P«SC 4 2 

* J*NSUM(3. I ) PMSC 4^ 

IFCJ.NE.O) GC TO 100 PMSC 44 

NOR$U)=D RMSC 4 

RETURN *• - FMSC 4 


SOG NOnst I tsNSU.Mll . I ) 

MEASVTC I > — NSUM 12.1 I 
MFASNO(t»=J 

TYPRMS< J ) =TYPRMS CJ I ♦ A SUM I 4, I) 
NOTYr'ECi. J)=f.0TYFE<2. J)+MEASWT< I I 
XN=NOHS< I ) 

RO M F AN ( I ) = A SUM ( I « X )/XN 

RMSO ( I ) - 3 • 

IF( NOOS( n .LT. 10 ) GO TO 2C0 


PMSC 4 7 

PMSC 4p 
PMSC 40 
PMSC 50 
RMSC SI 
PMSC 52 
PMSC 53 
RMSC S4 
PMSC 55 


8.0 - 449 * 


>/* 
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RMSO( I ) = SORT (ASUW( 3. I )/(XN-l.) » 

RNI> (I > = CASUM(3, I J-ASUM{ 1« I J * *2/XN 1 /ASUM( 5*1) 

RNP tl >=r( Z • *PKD{ I >- ! • I /SORT( ( XS- 2 . )/( XN**2-1 • ) > 

200 IFf M£ASwr ( I ) ,£0.0) GO TO 300 
XN=MrASWT(I) 

WTMEAN{ 1 > = ASUM{ 2 .1 >/ XK 
IFCMeAStff ( l > .LT . 10 J GC TO 300 
RMS WT 0 ( I J = SOPT (A S'J M { 4 * I )/(XK-l • ) ) 

WTPNDC I J = ( ASUM(4 ,1 ) — A S : J M ( 2. X )* a J»/XN ) /ASUMC f„ I } 
¥TPND( I } = < 2 . *«TRND ( I ) —1 • ) /SORT ( < XN-2. J /( *n««2~ 1 • ) ) 
"300 CONTINUE 
RETURN 
END 


PMSC 

56 

RMSC 

57 

RMSC 

66 

RMSC 

6Q 

RMSC . 

A? 

PMSC 

61 

PMSC 

62 

RMSC 

U 

PMSC 

64 

RMSC 

6^ 

RMSC 

66 

RMSC 

67 

PMSC 

te 
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*-AME 

PURPOSE 


ROTMAT 

TO GENE PATE -A ROTATION MATRIX FROM AN ANGLE AND 
AXIS OF POTATION 


CALLING SEQUENCE CALL ROTMAT ( THETA , I 1 ,X > 

SYMFOL TYPE DESCRIPTION 

THETA OP INPUT - THE ROTATION ANGLE 

XI I INPUT - THE ROTATION AXIS 

- "X “TJP ' TJCTTPUT -’THE ROTATION MATRIX 

13,2) 

.SUBROUTINES USED NONE 

COMMON fiLOC <S NONE 

INPUT FILES NONE 

CUTPUT FILES NOhE 



SUBROUTINE RCTMAT(THETA.Il.X) 




POT M 

26 


REAL*9 THETA, X { 3 *3 l 




ROTM 

20 


1 2= MODI 11 , 3) +1 


. 4 . 


POTM 

70 


I3=*QD( 12. 3 )♦! 




i ' - . POTM 

31 


XIII, 11 >=1 .PC 




r'- • ROTM 

72 


XI I I * 12 ) - 0 .DO 




ROTM 

3? 

— 

— X< I I • I 3 I — 0 .00 

. * ' 

- - 

- “ , 

- - POT m 

■*4 


xct 2 *m»o.cc 




POT M 

35 


XII3.U ) = 0 .00 




ROTM 

36 


XC 12. I2)=DCCS( THETA) 




ROTM 

77 


X< 13, 13 > = X ( 12, t 2 ) 




POTM 

35 


• = imthftt a) 




ROTM 

39 


XI 13. T2 )=-X( 12 , 13) 




POTM 

AO 


RETURN 




ROTM 

At 


.END 




ROT W 

A2 
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*AME 


SATCLC 


FURPOSF 

• 


TO APPLY SATELLITE CLOCK CORRECTIONS TO 
OPTICAL DATA 

GE OS— I 

CALLING SEOJENCE 

SATCLC! FIRST, DAY > . 


SYMPCL 

TYPE 

DESCRIPTION ' 

- 

FIRST 

L 

INPUT t OUTPUT - INITIALIZATION SWITCH 


CAY 

OP 

INPUT - UNCO 9 R EC T E 0 ME A SURF MFNT TI“E IN DAYS FROM 
JAN 0*0 OF THE REFERENCE YEAR FOR THE ARC 

SATCLC 

« 

R 

OUTPUT - CLOCK CORRECTION IN SECONDS^ 



SUBROUTINES USED YMCAY 


COMMON ELOC<S NONE 

INPUT F XLES NONE 

i 

OUTPUT FILES NONE 



FUNCTION S AT CL C (FIRST 

.DAY ) 





SAT C 

T 8 



DIVISION DAYNOC26 1, 

CavnQ2( 3 7) • CLC ( 12 

6 ) ,CLC2 ( 

37) 


SATC 

29 


COU I V AL C SCE (DAY NO ( 1 27) .DAYNG2 ( i > ) , (CLC( 127) *CLC2< I ) ) 


SATC 

30 


REALMS LAUNCH 

* CD AY iOO #YiDAV* YM DAY 




Sat c 

31 


LOGICAL FI RST 







SAT C 

32 


DATA NCLTCK/J60/ 






SAT C 

33 


DATA OArNO/ 







SAT C 

34 


9. COO. 

9.721 , 

10 .641. 

13. 562, 

14.562. 

15.304 


15.567 ,SATC 

3 5 


1 6.571 * 

1 7.579, 

17.579, 

19.312, 

1 9.575. 

20.579 


2C .57= ,5ATC 

36 


21 .53 3. 

22 .5C0. 

23.597, 

24.508. 

25. 51 3. 

26.513 


27.420 ,SATC 

37 


29. COO. 

30 .442. 

31 .44 2. 

32.446, 

33.450. 

34.367 


47.499, 5 AT C 

3 8 


4B.C54, 

49 .0 54. 

50.325. 

51 .329, 

52.1 52. 

52.241 


54. RO* , S4TC 

3 9 


65.095. 

53 .900, 

60 .09 5, 

60, 829, 

60.829. 

64.835 


65.845 , S AT C 

40 


66.345. 

67.845 . 

67 .345. 

68 . 212 , 

68.762, 

70.771 


79.771 . S A T C 

4 1 


71.771, 

71 .771 . 

73.779, 

73.779, 

74,050. 

74 ,ftQ 6 


74.606 . S AT C 

42 


. 7B.704* 

78.704, 

79.712. 

79.988, 

SC. 71 3. 

55.642 


85.642 ,SATC 

43 


85.837, 

86 .650 , 

89,0 23. 

es. 654, 

93.575, 

93.575 


94.571 ,SATC 

4 4 


94.571 . 

97.071 • 

97.591, 

190.600. 

191. 52C. 

1 71 • 52C 


1 C2 .516 . 5 AT C 

4 5 


102.516. 

103.346. 

10 3.52 1, 

105.441, 

198. 7c 5 , 

196.44 ft 


1 06. *0C , SATC 

46 


1 OS .304* 

1 CS .804 , 

1 0° .37 1, 

199.720. 

11 C.725. 

1 1 0.775 


1 I 1 ,737 , S AT C 

4 7 


III .321. 

1 1 2 .733 . 

1 13.733. 

1 13.773. 

114.3* 7. 

1 1 4 . 74 6 


114, 8?9 , SATC 

4 8 


115.737,’ 

116 .395. 

1 14.745, 

1 1 7. 656, 

1 1 7. 655. 

X 18.291 


IIP. 65P , SATC 

. AQ 


IIP. 566 • 

1 1 9 .5 66 , 

122.0 75, 

1 22.654, 

135.101 . 

13 5.539 


1 36 .( 4 s ,SA^C 

50 


1 36 .545. 

137 .458. 

137.458, 

13P.IC-4, 

139.104* 

133.545 


1 38 . C A- , SATC 

51 


164.1“4. 

1 64 .929, 

17C .4 17, 

170.9.17, 

17 i. oft?* 

171 , 9 A? 


177 . 792/ SAT C 

C ■% 


DATA C A Y N C 2 / 







SATC 

5 3 


177. 792. 

191 .1C* . 

191.5*2. 

261 .092. 

26 1 . C 92 » 

262. 992 


268.462 . SATC 

54 


. 269.020, 

232 .896, 

2P2.896. 

2*3.891, 

283. 851 * 

284.90 0 


284.907 .SATC 

65 


n • r 
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• « 289,263* 289,083, 

316.916, 

317.916, 

324. 854, 

324. 554 

« 

326. P5P 

.SATC 

56 


326,888, 358,080, 

758.550, 

373.396, 

373.3 p - 6 , 

375.1 37 

9 

375.229 

» S AT C 

57 


• 377, C54, 373.350. 

379.052, 

379.052, 

382.983* 

352 • 9 A3 

i 

383 .983 

• S AT C 

58 


• 333.933, 338. OCO/ 







SATC 

SO 


DATA CL C/ 







SATC 

60 


• -7.20* - 8 . 20 , 

-0,35. 

-0.03, 

2 • AC • 

2.70 


. 1*10 

• SATC 

6i 


• 1 * 10 * 1 , 10 , 

0 , 20 , 

0 . 20 , 

1 . 00 * 

1.00 


I.3C 

* Sat c 

2 


* 1 * 10 * l. io. 

1 . 00 , 

2 . 10 * 

2.20 • 

2.26 


C. 10 

.SATC 

63 


• -C,10, -0,90. 

-0 . 90, 

0 , 10 , 

9.30. 

- 0.20 


C. 2 C 

, 5 AT C 

64 


• — ?• 80, ”0, 85 * 

-0.70, 

-0.70, 

-0.39. 

-0.30 


-1 . 10 

• SATC 

6 s 


« 0 , 20 , 0 , 20 , 

- 0 . 10 , 

-o.eo. 

- 0 . 10 . 

C.50 


C.AO 

, S AT C 

66 


• 0*10* 0*40* 

0 . 10 , 

0 . 10 , 

0 . 10 . 

0, 5C 


-c.ir 

.SATC 

67 


« 3, 30* -0, 30 , 

-0.30, 

- 0 . 10 , 

- 2 . 10 , 

- 2.00 


C* 10 

• SATC 

68 


• -0.30* 0.25, 

0 . 20 , 

0 . 20 . 

-0.30, 

-0.6C 


0.20 

.SATC 

6 9 


■ « " t) , 20 * 0 • 20 , 

0 , 10 , 

- 0 . 10 , 

- 0 . 1 0 * 

-2,50 


-2.50 

.SATC 

70 


. • -3,20* -C.30, 

- 0 . 20 , 

0.30, 

-2.60, 

’ -0.50 


3.60 

• SATC 

71 


• 0 , 20 * 0 , 20 , 

- 0 . 20 , 

- 2 , 00 . 

0 , 20 , 

0.20 


— 0.50 

• SAT C 

72 


-3*40* 0, 20, 

0. 2C. 

0.30, 

0.90, 

0.40 


C.4G 

• SATC 

7 7 


• 0 * 20 , —0.63, 

0.30, 

-0.40, 

- 0 . 2 C. 

- 0.20 


- 0.20 

♦ SATC. 

74 


• —0,50, —0,45* 

0.13. 

0.40, 

- 0 . 1 0 . 

0. 1C 


C. 2 C 

, SATC 

75 


• 0,60* —0,40, 

0 . 10 . 

- 0 . 20 . 

- 0 . 10 , 

-0.30 


-0.3? 

, SATC 

76 


t • 1,70* 2,70 • 

- 0 . 10 . 

0 , 10 , 

1.70* 

1 ,7C 


• C .3? 

.SATC 

77 


• C, X 0, 0* JO, 

0.40, 

-0.50, 

-0.50. 

-0.40 


— 0. 30 /S AT C 

70 


DATA CLC2/ 







SATC 

79 


• O.C • -0,30, 

- 0 . I 0 , 

-C .30, 

5.20* 

C.2C 


0.10 

,SATC 

e? 


• 0 * 20 , — 0 . 20 , 

-5.03, 

-4.90. 

C.5C , 

0.50 


-0. 1C 

, S AT C 

pi 


• —3* 10 , — Cm 10 , 

-0.40, 

. — C-. 20 , 

— C . 4 0 * 

— C* 2 0 


-C.4C 

• SATC 

82 



♦ 0 • i 9, 

—0 • 32 * 

- 0 . Oi * 

-0.03 


♦u *Os 

,Sai c 

1 


• +0,07, -0,50, 

-0.50, 

♦ 0.23,* 

♦0.40. 

♦ 0.22 


♦ C • 30 

, S AT C 

04 


• • ♦0.24, +0.50/ 







SATC 

85 

C 

rr^INE RFFP(J=NCE TIME 







SATC 

05 


IFfFIRSTl LAUNCH=YMOAY(65110e. 

0 , 0.00 ) 





SATC 

07 


FIRST-. - AL S E . 







SATC 

S.° 


OD AY— OA Y * 9 .64D4 







SATC 

09 


— COA Y= I D I NT < DCAV + 2, 03 ) /4*4. 






SATC 

90 

C 

SET TIME TO MULTIPLE OF 4 

SECONDS 






SATC 

°t 


SAT CLC=CO AY— CD AY 50- 

■» 






SATC 

02 


RErT X M = 3AY-L AU NCH 




■■ ' 



SATC 

9 3 


DO 10 2=2. NCLO CK 







SAfC 

94 


IFCREFT IM. GT.DAYNO ( X > ) GO TO JO 





SATC 

o 5 

c 

INTERPOLATE 







SATC 

96 

20 

- ’ RAT E= <CLC t 1 1—CLC ( I — 1 1 

)/( OAYNOI 

! >-OA YNO( I 

-1 ) ) 




SATC 

97 


.SAT CLC=5ATCLC+ (RAT E* < REFT !M-OAYNO( I- 1 ) 2 + CLCt I-IJ)/J,E3 



SATC 

9°. 


RETURN 







SATC 

99 

10 

CONTINUE 







SATC 

*00 


— RETURN 




•. * 



SATC 

1?1 


END 







SATC 

102 


* 

» 
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NAME 

pup^o^r 


CALLING 5E0JCNCE 
• SMUPQL TV Off 


SATCL 2 

TO APPLY SAT^LLI T e Cl ^CK C 0~ 9 1 0 T l DM S TH CEOS-fl 

optical OAT A 

X=SATCL2lf IRST .^AY ) 

DESC^I PTfOM 


**I»ST l 

DAY y» 

• * SATCL2 T 

suspoiit infrs jsen 
COYMCN blpc<s 
IN*»UT files 

t 

CUT Pin TILE » 


INPUT f. irjTPUT - INITIALIZAT nv <;w|T C-f 

INPUT — UKlCOfl y fCT'iO V" A ^uc FM " nT Tl vp fN OA YS pr ?OM 
JAN C.O nc THE PE-E^CVCr YEA-J FQ9 THE A^C 

OUTPUT - CLOCK COGP^CT ION IN SECONDS 

t 

SATCSt SATC22 YM-»A V 

NONE ' 

NONE ' 

NONE 


4k 


PUNCTITM SAT CL £ ( F I P S T * 0 A Y I 

OIVhNS I -)N H AYNO( *0PJ , OAVNOl { U 5 » .DAVNjn^r^l ) ,-)a YN0 3( 1 1A» 

daym*.< no .0AYNT5 s'?nr.LCi < i :si .clc’c «i i . 

• CLC«t fi l A| ,CLC'-( 1 1 A ),DAYS( ?) 

P 0*1 I V AL - S C E (OAYfJfJKn.fiVNnmi, tOAYNT^I n , 3 AYNOI J IA> 

hay l;l’(l J.fiiY'j.'M 1*7)1, ( riY'inir ! LliYunf Sfitn . 


• <CAYN7--(I), 

DA V \0 ( 2 5- 

) ) . C C-Clf 1 1 ,CLCC xn 

• •' tCLC! ( t ) . CLC< Ilf ) ) , 

• ICLC'j < 1 ) , CLC ( 795) ) 

<CLC3(1 ) , CLC f 1 ft 7 ) ), 

0 AT A DAYS/ 232. 
CAT a DAY NO 1 / 

2° 73 . 4 57. 

461 *. 7® 9 . C31 n/ 

• SI. 0264. 

5 2. 019 6 * 

5 2.7622, 

s’. :s 2 s. 

• 56.6470, 

55.65 1 4, 

5€>. !1 4ft, 

56. 6611, 

f S3. 24 37, 

56. 6GJ C, 

50. CSr <5 , 

60.0750 , 

• 67.6137, 

N4, c23 9. 

6 « '* . 62 3ft, 

5 5.0 A 26 , 

• , 67 •. i 

6 7. P 5 3 2. 

6 Q . 10^7, 

ft 3 . 5 a o 4 , 

• 7C.-<i20* 

71.10 3 5. 

7>. ;7i2 , 

75 . : 6 ?n. 

• 73,ri33, 

7 '*» 65 5 2 , 

Tv. 

7 4, i :42. 

• 76. J t 74, 

7^.H4 7, 

7ft • 25 •* 9 , 

. 76.1 71 2, 

• 77.6347, 

77,71 l P, 

7S.;-«U9. 

Ts .‘- 26 , 

• 7«.66|3, 

;?% 12 7 6 , 

s ' . S9 5 ft , 

a C . 67 50 , 

• ft*. 5 2 5.*, 6 2 ••• 

7^1, 63. 3T 

15, s«,651 

. «.T5T«J, 

PO.f ■»«*, 

S', -.ft •• 3 , 

A 5 .r. t 22 , 

• v,*7n=5, 

S7i# J67, 

ST . .- n , 7 . 

ao , *61 H, 

• ■ 17, 

* r .71 * 7, 

. “ “ - ^ - ? . 

, 

• 3».so; 0f . 

r - I * r t « 7 , 

93. ITac, 

t; 2 . * ; * 6 , 

* a -».;-> 2 1 , 

S 12 7°, 

ft 3. 54 -»7 , 

■»A .14 17, 

• **f,..7 3S, 

P5.C47 2 , 

on. 64 **ft. 

OS.Y-*7->, 


54.06*7 « 
5 7.0345* 
t 1 .OP’3 , 

AA,A4Tj>, 

6A.S1M . 
72,6451 , 
74. 671 5 . 
76. 6 .?: 5 . 
7*. 7 p. . 
Y i . * * \ a , 

> a 4 , fi*;} .* , 

1 1 ; i « 

« *• f ? - *5 ♦ 

9?. *3: o , 
«4.r 3t 7, 
€6.c5 n « 


CLCJ(1IA», 

) . 

c 231) >. 


5*. 0795 , 

5 T. ft 7 5C , 
63. 72 7 P , 
66.7 ?C 9 , 

6 0.037F , 

7 3. C l 60 • 

76. -&17. 

77. C674 , 
70. ^90 ’ , 
s>1.6»«? , 
° 4 • 7 j ] J . 
P6,6C*?1 « 
PP.7f 40, 
3 1 . 1 1 : a . 
f, 2. t>7? 7 , 
« 4 , 7 C 9 3 , 
G6.650? , 


SATC 
SATC 
S ft T C 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
SATC 
s a ▼ r 
SATC 
SAT C 

SATC 


?S 

?o 

30 

31 

32 
37 
34 

7 S 
36 
77 

3P 

7Q 
AO 
A 1 
A 2 
A 3 
44 
AS 
46 
A 7 
4 » 
40 

sc 

R 1 

r - 7 
f. 7 
*4 
*S 



• **.•■*’.73 

• 95 • *£ + 7, 
OAT A DA<M02/ 

• 1 C : . 1 ft 5 i , 

• 192. 66 15, 

• IC r -.:24 7, 

• 107 *. :• 35 1. 

• lit •*"'>*.5, 

• ti* .*.*>-3' • : i3. 

• 1 1 7 • 1 .4 1 > . 

• 

• I2'.$*61« 

CA’’ A' D4VM03/ 

• 122.12 19, 

• I 2 c.; “93, 

• 126. 1 r, 90 • 

• 12*.; 354. 

• 129. 7140 « 

• 131.4467, 

• I3CV769C. 

• 135.7104, 

• 137. 57^1 . 

• 1 30. 406S, 

• 141. -W 79, 

. 1A3.A716, 

• 145 .7 3 CO . 

. 147. A .* A.o, 

• lA9.4T/a, 

. . 151. l’M. 

• 157.1413, 

• '156.? 321* 

• 15’. ’543, 
OATA DAYN04/ 

• 129. M 1 1 • 

• 161.5954, 

• . 167. i 1 .4’, 

• * 155.7392 , 

• 16*7. a958. 

• 3 60. 70 l 7. 

• 171.7417, 

• ‘ 173.69 31. 

• 175.7147, 

• 177.7451, 

• 190. *4 10. 

• 192 1 1 45 7, 

• 1»3.’493* 

• 1.95. i 3 1 J. 

• 19F.17M, 

• 1*2.2736. 

• 1*3. ; 4 ; i . 

• 194.74 17,’ 

. 1*17.7 4 13, 

9 A’ % rav'j OS/ 

• P%^5«7. 

• 292.771c, 

• 2C2, 44 *J2. 
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97. SOfc,S. 

97.6722, 

97.’486, 

9 9. C 5 6 ?» 

99. lH 2* 

09.6? 22* 

1*:3. 47 54, 

icn.'on. 

151 .64 **6, 

1- 3, 57 4 C. 

!>1. ’•>?.! . 

1*4.121“. 

1 - * 24 7, 

i r- . ’2 .-•• 1 , 

1C 6. 1 A 04, 

1 C7. 14 15, 

IT*. 65 ’6 , 

lw ®.6«9A , 

11'. *972, 

: 1 1 . 7i C4, 

M 2.7? 1ft, 

674 3, 1 1 -5 

74 3, i : 1*. 1,20 

1 1 7. 4.733, 

! 1 7 • 72 Oft , 

1 1^, 1540, 

120,77^ i. 

12* • 1C5S. 

!?r.6’15. 

121.7/2’/ 

• 

; 

122. r=9?. 

t 23 . 77 f 4 . 

1 ? 3 . 1 4 5 1 . 

124,659 C, 

1 2« * 71 ? ft , 

126.1 722. 

1 2'':, ^7 n*;. 

! 26 . ’5 2-7, 

1 r 7 . 1 1 2 2 , 

12f . 70 2", 

l? a . ’1 l 1 . 

12*.7’92. 

1 33. C 86 8, 

S 3“ . 14 1 a , 

1’: 

1 3 2 • ^5 c £« 

; i?. 67 •>?>,■ 

•32 .756?. 

134. : 

! 34 . ’C »■ .7, 

i ” A . ’ ' ? C , 

lor. 7250, 

1 3 1* . 1 A “ C , 

1 2 A • -v5 6 o . 

1 3 7. 74 f; 5, 

1 36 . ! 1 *■: . 

I?*?. !•-?«. , 

1 30. 77 2 5, 

M" . 14 23. 

if ?, n 97 , 

14 I. ’ ?29, 

142. 1677, 

147.6611. 

I 4 7. 75 0 0, 

144.1104, 

1' 4.6568. 

14 6. 14 5 1, 

1 4* . 7’ 79, 

146.0310, 

148. 172 2, 

1 4 0 . *6 4/., 

14P.74C3, 

149. 75 3 f » 

1 40. 76 * i. 

15C.I 3M6. 

14 1. 7C X 2, 

1 51 . 70.5, 

162.1 4 16 , 

157. ’20 5, 

1 SC .746ft, 

153. : saa. 

1 St « “94 4, 

156 . 77.0 5, 

1C 6. 7’ 67, 

15 7. 15 2 1. 

15-*. ’2*8, 

15W.79 72 . 


1 6 ? . 1 7 H 5 , 

1 6 *5 ♦ ff;-) , 

l »: r . 74 7 2 . 

161.7* I 1, 

16?* 27 56. 

1 6 2 . 6 9 .36 , 

163.7! 13. 

1 C) 4 . 15=5, 

ift4.? r 26. 

16 *. PI 4f , 

166.1076, 

1 6 * • ». ft 1 9 , 

1 67. 764ft, 

1 66 . 20 9C , 

i 6®. 77 7ft, 

17 0 . ISC 7 , 

1 7r . 2 3 ft 1 , 

J 7C . 7? ft"> , 

17 1,6161, 

.1 . 13 * 4, 

1 7?. 754ft, 

173. 7ft b 1, 

1 74. ?1 2ft, 

1 74.7503, 

176. 1 ft 3 2. 

1 7<= .2196, 

176.7317. 

* 7p. ; ^ ai), 

70. 7?0;T , 

I 7P • =354 , 

15 0. ?1 60. 

1 ft<~ . 7354 , 

151.2=9?, 

lur. 24 1C, 

1 9 

l c 2.74 7?, 

IP i. 625 7, 

» *4. 1C.-.; , 

16C. o 1 - 3i , 

13 5. 21f,2, 

1 Hft . 77 5?, 


18 8.2465. 

i ftp .73 9ft. 

1°“* 7*» 3 7, 

1 9C .756*', 

1°1 .7’02. 

192.2329. 

2. 2 J •> 1. 

1 9’. 7?4C , 

1*7. 

1 9r. 7 ? ft 

1 . 5??6, 

I96.?;r. : , 

1^9. 1521. 

1 9ft. 22 c 4. 

1^3.7263. 

?CC. 1 7?i».. 

2 r :• . 74 7 ? . 

3? ,‘.a? 71 , 

20 “ • 5 5 C l* 

:o m^i, 

? C 3,2i 6’, 

2C4. 15 5 6. 

i '*6 , 2? C.O, 

? •“ A ? 1' , 


c «. 1143, 

? 8 .M 1 1 , 

m Tr 


c 6 

^ 9.6 ?*i 6 , 

1 0 0 . ftfip.’/ 

SAT 


ft ■» 



ftA’C 


f 8 

1 ; 1 .7?5? . 

10 2 . cost , 

5/rr 


ftO 

:r. 4 .ci ’2 . 

: 0 4. All 7, 

SATC 


f r 

1 C 6 . 6 739, 

1 r ». 7* 53 • 

sa't 


61 

1 C 6.66 f '7. 

1 ft 9. 6 ft*C . 

C.ATC 


62 

1 ! 3.661 1 . 

1 ! 4. 6*70 , 

sat c 


'6 1 

5.116. 6’ 0 1 

,i! S 69 s o , 

SATC 


A 4 

i 1 “ • 6i*'*5 , 

1 1 3. ’222 , 

S AT C 


C ft 

150.7493 . 

121.1187, 

5ATC 


f '8 



SAT c 


67 



SA T C 


6 ® 

123,6 765 , 

l 2 3. 7125 , 

SATC 


60 

125.6672 , 

1 25. 7->R9 , 

SA rr 


7 9 

127 ,6 ft A* , 

12’, 766 0 , 

6 ATr 


71 

1 “ 4, 1 , 

1 2 9. 64.?? . 

5 A T r 


’2 

l 71. C* 993 . 

t 1 ’SO , 

SATT 


’ 2 

131* 1 ?57, 

1 2 3.6CJ- , 

SA’r r 


74 

1 ?5. 1 5?i . 

13 5.6437, 

SATC 


7ft 

1 3 f . 7 1 7 c. , 

1 3 7. 1 765 , 

SATC 


7 f- 

119.6 -7 <2 , 

1 ’3.120.? , 

SATr 


7’ 

1 3 ft. 7R4» , 

14 1. 1555 , 

5 A T C 


7 P 

142.7365, 

M3.I7JO, 

SATr 


70 

14 4.7677 , 

1 4 5. 1 32 8 , 

SATT 


PC 

1 4 7. 1 S” , 

14 7.7?7i , 

SATr 



1 ;i. 7455 . 

,1 49, 1 8.«?A , 

SATC 


»? 

! 5C.6910 , 

1 5 0. 78 67 , 

SATC 


Pi 

1 5’. 71 50 . 

\ 52. 7117 , 

SATC 


84 

165.64! 2, 

: 6 5. 755 Q , 

SATC 


85 

1 67. 1 2 If , 

7 5 7. 7.076 , 

s .\TC 


86 

15 9. l 6 > 7 , 

1 5 9.734 0/ 

SATC 


f 7 



SATC 


88 

1 ' 0 . 7 5 ft ? , 

161.1024, 

SATC 


pn 

162.7747 , 

16 3.1*31 , 

SATC 


cr 

1 6 4.73ft.? , 

1 66. 1687 , 

SA TC 


Q 1 

166.7 5! ft , 

1 67. 12 OP • 

-SATC 


c ? 

1 61.2 22 3 , 

! 69. 71 5 7 , 

SATC 


o? 

1 70.7 7-:2 , 

171.17??, 

SATC 


0 4 

1 73.8312 . 

1 7’. ; ooi , 

SA’C 


05 

1 75. 1 ? ;c . 

175. 2257, 

SATC 


O/. 

1 7-7, 1 7-60 . 

l 77.2528 , 

SATC 


o 7 

- 73. 2 22 8 , 

1 ’9,772? , 

* SATC 


co 

1 ?! . 72 >Q , 

\ 51. 7C?f , 

SATf 


G a 

l H 7. 1 7-»0 , 

l ft l. ? c 6? , 

SATC 


CC 

i "7635 « 

164. 6186 , 

SATC 


C_4 

l *7 7.2 3=»6, 

\ 57. 6C29 • 

SATC 


: 2 

I ft*. 75*3 . 

1 o-:. • qfs , 

SATC 


ft 7 

\ <=?. 7?\' f 

! 92.7571, 

SATC 

4 

f ' 4 

ic 4.1 7 06. 

!v4,? c :r, 

SATC 


C 5 

106.27^1 , 

1 96. 770 J , 

SATC 


C 6 

1 = 9. 2 .1 2 6 , 

\ °9.7’4C/ 

SATC 


C ’ 
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SATC21 

OA^r 2 or S 4TELL ITT CLOCK C0C3FCTI0M •’04 PETJS 2 
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SYMPOL. TyuH OE5CPI ™TI CN 
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-INPUT F-U F3 — NONE 

OUTPUT FILFS NONE 
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-s?. 2373 . 

SATC. 


2 e:. 

i c *5 : ♦ 

25 C. 57* E, 

251 • 74 as; 

>51. '2 20 , 261. A 15.0. 

2 32. >5^7 , 

SATC 

~ c 1 

ii'?. 

3^51 • 

252.^2 9 2 , 

?53.?7?g. 

251. 4S0C. 

2F-*. 21 IF , 

SATC 

-O? 

2 r,A. 

- . 

2S4. 7 79F, 

354. .--- 5. 

2f4.**V»7* *»*3«?2 a**. 

2 C 5. 2^ft? . 

SATC 

*5 0 1 

2 «F. 

> 7 3C , 

>5 ft . t SS7, 

. 3 7 , 


2 fc 7. ?5c e , 

satt 

- - A 

257. 

M33, 

>?7.m5^ ;, 

?5T . 13 , 

256.4125, 

253. 2764, 

SATC 

r 05 

7 5°. 

5i07. 

i 6 C* 21 r >P, 

2*3. 2 Ar, 5 . 

?r.:.--'515, 7*1.22-1. 

2 ~ 1 . 3327 , 

SATC 

T 06 

st l • 


■" ^ • • 3 *» 1 Cl 

.%* ?l * 7 , 


r-i.3?-4 , 

c A T C 

T a 7 

3 6 " • 

• - - - * 

■if ■' J . 6 2 • 

•ir 7 f 7 1 , 

* 4 . -i ^ , 


SATC 

-CO 

;«.*■ * 


2 (•*■*• -4*3 1 , 

2 6 -:>. >192, 

' ' >r • ; • 37 , 6 . 0 6 * 3 . 

3??A , 

S ATC 

“no 

267. 

i'C 69. 

>67. ri75^, 

265 . ?2C l , 

^AS.SllO, v.;,pi74, 

269. 3 232/ 

SATC 
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CAT* CA*Mn?/ 

• 

*• 


26 ?. ; : 10 . 

27C. 27 C 9. 

27:*. ’4 72 . 

2 7:3. *3 99, 

271 . *521 . 

272. * 97 1, 

27.). 375C . 

27 P. 9ofi5. 

272 . * 7 92. 

214. 2 48 i . 

2 74 , ’’2 r . 

27« . 1- 21, 

?7R. O 56, 

275. 274 9, 

17.A. 35 “ 6. 

2 ’* .04 23 • 

277.965? , 

Z73..’C0 *, 

>73. .’7 f: 4 , 

;■>■*»" .‘if. 57. 

275.3326* 

? 7 •? • 2 6 6 7 , 

280 . 25 27. 

- 0 - , 3 2 3 0 . 

2B1 . 24^3. 

1. 0325* 

2 91 . 59, 

?91 .91 94 , 

2 3.7. '2?1 . 

2c 20 l 5, 

? 8 ’ . 35 8 9 , 

282**'’ 52 • 

?84 .4402* 

2° 5* 3171, 

23 5. 88 = 3. 

«“5. V. 24. 

2 P<:o‘^2, 

237. 7-442. 

337. 3389. 

?o’. 5t 24 ♦ 

2RP.5235. 

Soft. 37 1 2 . 

? 0 9 . °6 2 ’ . 

209.9387, 


2 9 1. 32 i 3. 

7 9 : i 38 O 7 , 

23 : . 2 ? 4 ’ , 

297. i4 7 3. 

29 3. «’ 94. 

2 91.91 OB, 

2 94,25 50 • 

295. 77*50 « 

0 . 5 c. 0 . 

2 of.. 31 1 3, 

29- . 97 p 7 , 

2 97-. =< ? 2 3 , 

s? 7, 0892, 

?o-3. ’38 1 • 

?’o.«)33. 

.290. V-30 . 

?o 4. 9 1 p 7. 

3’C . 1AA5, 

TC 2.9*62. 

301 . 7764 . 

7C l. 35 9 4. 

1C ?. ’1*2. 

I! >. 1422, 

... .3.01. -3 958. 

3_ 3. 00 : -.6* 

2 0 4. 25 7 3 . 

3C-*.’4 If.. 

3C* • 3 54 7 ■ 

ICC. 21 . 

3 C r. . 9 7 ✓ 


OAT A DAYvni/ 




.12? • -5 67* 

1?.-. 9 3 24. 

3 24. 35 4 0 . 

224 . 37H4, 

125.3923. 

3 2 5. 95 8 7. 

1 2 * . 32 96 . 

52* 1 35 . 

127.il 02. 

327.9597* 

128. 3555, 

’29. ?? ’* • 

3P9.3601 . 

320, A’Sc, 

2 3 ' . 391 0 , 

3 3C .0-7.3 3. 

33! 

? 3 i » ° * 2 4. 

212. 40 59. 

’I’. 84 0.3, 

33?. 5 226. 

13 4 , r.f 5 C. 

in. :: 27 , 

3 ’ 8 . 37 2 1 , 

3fP .44 

15-. 454 1, 

37- . 3915, 

37 ; .0756 , 

3f 94. 

?7 r -. n 5?*» 

3 75. .’05 3. 

377, i,- 73, 

3RC . 4615. 

19 1. 45C 9. 

3B2.C247, 

’’2. 1Q59. 

■06?.. 4 P -5* 

333.9854, 

3. a i . 42*5, 

"?4,9: 34 , 

395. 4 -*‘37. 

?3 r . 0326 , 

3 8* . OC P 3 . 

.3-*^ .4* 26. 

397. 4f 53. 

1H7. 95 9C, 

908 . 7347 , 

?o3. 4) 33 , 

’ 8 , 4 1 5 3 » 

33 9, 4 9 ,3 - « 

3 6"'. m«4« 

* 8 - . 3 » 5 . 

39C .49P5. 

39 1* C7aC« 

5 J 1 . <’ 1 , 

■ •:• ; . 9 f 9 . 

- 59?. 04 0 2* 

39 5?4 R, 

19’. ’o -< 8 , 

’ ■) 3 . 9* 24 , 

394. ? 7 56* 

joe. C 8, 

30 5 • 9 4, 

’45. 94 9° • 

3°6.4325. 

’07. CC 20. 

30 3 . 'C 5 H . 

’97. C 7 P4 , 

393. 0534. 

’•79. C2 6 2. 

?oo. 1C « 5, 

394.4729, 

407. ?797* 

4 C 1 . C 5 5 4 • 

aCI . *0C 0. 

43 : .9922, 


AC 2. 5 1 £ 1. 

*C 3. CO 54, 

AO’.rR’s, 

4 ; 

3.5260* 

4C4 . It ?4. 

4 05. “3 2 5, 

4 C 5 . At 1 ft , 

40 

■’ • 97 0" , 

-■• 407.3 5 59. 

4 C 7. 42 7 C, 

4C 7 . 50 27, 

4- 

7. OC.43 . 

' 4t - 1 * < 1 2-5* 

410.0264, 

4i : • 13 '*:■ . 

41 

C • 4 * 8 ? • 

AU . *7 37, 

4 1 0 . C 4 9 I . 

4 ! - .41 72, 

4 I 

2.4-120, 

413. 8-0 61 . 

414. 0762. 

*14,44’f, 

* 1 

4.32 CO. 

415, ’ 1 , 

4 1 *. 0 2 *4, 

t-l*. 30 s*«. 

£ 1 

* • *’00 • 

4 17. i A 32. 

■ 414. 0532. 

** I ’ . 42 1 4 , 

4 * 

4 . A ’• 6 3 a 

4 1 9 . 5 : ? 5,, 

* A ? •: • 0 •’ 4 z . 

42" . "7=.’. 

4 " 

■* • 4 ‘ j 1 2 . 

421 . 5 374, 

«i 1,00 27, 

42 ’. 1C • 5 * 

439.4i7A9, 

42> . 9 9 >6, 

4’-. 0565, 

4’ -- . 12 6 ■» « 

4 7 

4 .*.: vo • 


?7t.2R?0 , 
"71,23*1 , 
2.7 5.2 61 7 . 
p77, 2 « . 

-•7U.24':? ♦ 
’A:.F 9 r >3 « 
9P?. 3 5*? * 
• =>4, 3 0^% 
p*?*.25o\ • 


?o j # n?'.Q . 
r;Q4.36i 1 « 
25 6. 9fi r '3 « 
?=3.cc-”« 
3f . 

*C ? . 9 n?r, . 


jr- 


’2-.04'^ , 

* 

’’2- OH 12 * 
135.9 32* , 

377, ?16R, 
37S.i2C7, 
7"2.96-’0 . 

1 . 

3*7. VA •=» , 
3° 9. 47-)«, 
70*;, a » *c , 
30?. 9 1 ? T , 
3 J ‘.02n * 

■<07,4633 , 
A" C.C*?? . 
AC 2. Of,** . 

4?4.Cl«?* 

4*6.04^7, 
AC 9.C 7 ?? , 

- 1 urj'r , 

4J 

A’. 5.0122 * 

Ai o.o** 7 , 
47 uci*>* . 

4i.3,C4->7, 

423.37 ,? , 


?71.3fll . 
573. 3107 ♦ 
27 >. 3174 . 

? 7 7, 3ft* f* • 

2 7 % 71 3 7 . 
•«C .S-^gc f 
2«Z. «*57 , 
)C4, 0721 • 
?**• 331?* 
?e°. 7 api , 

? o :. p’*? • 

2 ‘>2. PC 19 . 
?OA, Q2<=c , 
2«7. 32 RC , 

?r i.’tfif * 
?r 3. 3 ?pa , 
1T5. 2BCF * 

’Z 5 . 3 1 f: A • 
’57. ’4?C • 
.12 0, 36*7 , 
3; 1 . 31 OP *‘ 
331. 7 a 57 , • 
3f 7.427C . 

,3 7 3. 42 3 t , 
770. 4?70 . 
?9!.4« 24, 
ip *. 3*45 * 
.!*7.3?1S , 
3 hR.67?2. 

7 c; -. 5 rf r. , 
302.4*5’ , 
354. 45?A , 

3 Of. , ’RRC • 
398. 3 PAR, 
0 0.41 C a , 

4C2.435.C/ 

4 C 4 * 0057. 
06. 41 3° . 
4:3,4402. 
411.11*5* 

*1 3.4 2 r*. 
4t R.4569 • 
4 1 7. 40 02 , 
‘•1 9. 4’3« « 
4 ? 1 . 4 f C 7 , 
473. ’<?** • 
47S. 4773 , 


RATC 

’ 01 

8ATr 

■»9-> 

RATO 

*> c ’ 

6ATC 

7.74 

S4TC 

’ C 8 

5 A t C 

’0 - 

SMC 

0 C 7 

SAYC 

*, 

SiTf 

9 ft 9 

PArr 

’ 1 r 

RATC 

’ll 

S AT C 

'I? 

*ATr 

’1 ’ 

RATC 

’14 

RAT r 

’18 

S&TC 

’1 * 

RATC 

’17 

RATC 

’ 1 •»• 

RATC 

’1 9 

SAT C 

’O'* 

RATC 


SATC 

J 

M 

'J 

RATC 

’ .? 3 

RATC 

’?A 

RATC 

’25 

RATC 

’?* 

SATC 

7?7 

RATC 

’?*» 

RATC 

’ Pft 

RAT C 

’ ’C 

RATC 

’31 

RATC 

-*» - 

RATC 

133 

8/.TC 

”4 

RATC 

”5 

RATC 

’ 3 * 

RATC 

’37 

R a rr 

1 >p 

RATC 

’30 

RAT-C 

’4C 

SATC 

’41 

RATC 

’4 ’ 

SATC 

’47 

RATC 

’4 A 

RAT C 

’45 

RATC 

’44 

RATC 

’A ’ 

RATC 

’ A A 

*ATC 

-49 

RATC 

• r -1 

SATC 

* = ! 

RATf 

’ * 3 


4 c 3 * 


1 37, 

4 7 :’74, 

t .45“*”. 

- o. 

4-7. ’ , 

-? 7 .442C, 

14 Tf 

7C » 

*-?7, 


*. “ J, 

4 C ’’0. 

4?ft . '*7 71 , 

4 ’ . 4 ’ 1 , 

-5 5.4 1 *'M , 

4 1 3 . 4 t f ’ . 

RATC 

’ 5 A 

42* . 

7 


43 ;, CSC ?. 

4 3 : 

h. ’ : , T 3 4. 

4’ l.C 7 , 

4? \ . 44 I ’ , 

RATC 

1 r c 

411 , 

5 

l 66. 

43 3.387 4, 

4 3 ’ , 45 •» 1 , 

4 ’7 , 0 5 . 

43 ’• x c : c . 

4 33.4 67? . 

RA TC 

’ * 6 
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413.54 44, 

ft 3 4. C3 7 4. 

434 . ?«:, 

63** . 55 76, 

435. C505 , 

475.1 277, 

* 

SAT 0 

1ST 

435.4 937, 

43 

6. 1*17, 

4 36 • 43 V>, 

436, 5 v 65, 

43 7. 077? , 

4 3 7, 4 431 , 

CATC 

7=0 

. 437.3303, 

42 6. C90 3. 

61 , 

431.5- 39 , 

479.1 C'4 , 

43 

9.472 A, 

SATC 

150 

4 3? . 5 4 79, 

45 

6, ic ; 

4 6.6 . 4ft 92 , 

4 ,‘%4 4'J, 

457, 03 *’3, 

4 5 

7.461 °/ 

S AT c 

7 6C 

DATA CLC* / 








SATC 

“C 1 

• . 3. 1 32 * 


•3.162. 

7 .246. 

.3.261 , 

C.-263, 


0.276. 

SATO 

7 (ft? 

• -.293. 


-7.54 6, 

-?'* .3 >1 . 

-2 3. 7 27 , 

C. 115, 


MP’ . 

SATC 

7? 3 

• -.1*4. 


0.20Q. 

-4 J .35.3, 

-60,433. 

— 56. .156 • 


C.327 . 

6 AT C. 

76a 

• -37.220, 

— 

40 . 74 ft. 

3.3*4, 

-2.575. 

-1.760, 


’ 2 . C 1 2 . 

5ATC 

7 6 = 

• — '.'3 16, 


-0.01 C. 

-0.3 C 5, 

3.0 • 

-c.c7 ; , 


-3.C2P. 

5ATC 

7f 5 

• -G.32*. 5.226, 

6.765, 

»3 . 2 

24, '. 337, 

0. 741 * 3. 

34 

5. 

5 AT C 

7 67 

3.357, 


0.36 1, 

-31 .096, 

C . 3* 2 . 

C.4 J7 ♦ 


0. 35P* 

SATO 

IAS 

% 9 9 0, 


C . \ 2 9, 

6 . 1 4 A , 

0 . 1 P . a . 

-1. 304 . 


-1 .359, 

6ATC 

765 

.442, 


9 . 1 59, 

0 .0 26. 

0. i 92. 

*3. 1 37 , 


3.221 • 

5AT*r 

7 vr 

4 :-. 2 39, 


0 » 1 ° 6 * 

3 .271 , 

3. >7', 

3.276, 


0.315, 

S4TC 

771 

7. 115, 


0 . 3 7*2. 

0.352, 

9.747, 

3. 354 , 


C.393, 

6ATC 

773 

3.499, 


3 . 4 1 ». 

0 .425, 

0.265, 

.3. 2^3 . 


3.237 , 

SATO 

77 ? 

‘>.229, 


0 *2 1 «• 

. 1 l *» . 

-3.1 76, 

-3.170, 


-3.1 °0 « 

CATC 

974 

• - --.162, 


-0 .20 0. 

- 0 . 1 9 .3 , 

-0.1 96, 

-3. 1 5? , 


-:.is*. 

SATC, 

- 7 = 

-3. 197, 


-3 .25 2. 

-* #?e*. 

-0.211. 

-9. 2*1 , 


-C.23A , 

SATC 

774 

-0. 25 1 . 


-3.257, 

.267, 

- 0 • 264, 

-3. 39C , 


-- .39r , 

6ATC 

“77 

-0.409. 


0 • 3 3**» 

C.3 59. 

0.767, 

0. 291 . 


0.?‘P* 

SATC 

17 “ 

3. 279, 


3.2 12. 

7.115, 

9.1 06, 

0. 055, 


C.CR? , 

SATC. 

973 

3.119, 


0 .369. 

•0 .0 35, 

0.225. 

0. 0>3 . 


-C.C1 1 /* 

S ATC 

■•*.■ a -j 

OAT A CL C ’’’ / 








SATO 

751 

-■*.0 49, 


-0.0 7 2, 

-C.99T , 

-6.1 65 , 

-0. 126. 


-C • 1 2 p , 

SATC 

*■* 0 ? 

-6. 1 ??• 


-3.149. 

-0 .1 17. 

-2.! 57, 

-0. 1 61 , 


-0,1=7, 

<* T C 

* a 1 

•1.1 11. 


-0.147. 

- *. . 1 ft«. 

. -0.173. 

-1.169. 


-0.167. 

6AT0 

1 0 4 

-C.?35. 


-0.184, 

- J.l 

-0.224. 

-9. 2 ?7 , 


-0.257 , 

SAT C 

’ * = 

-C . 2 76 , 


—3 .33 2, 

-0 .276, 

-3J 751 . 

-2. <127, 


—3.31 n , 

SATC. 

9 O 4 

* -0.332. 


c •Pl'i- 

7 .2 66, 

0.255, 

2.2?4 , 


-I.??-*, 

SATO 

9 0 7 

-1.115, 


-l . 1 04, 

-l .1 22. 

0. >63. 

0. 2 7C , 


C. 71 5 . 

SATO 

“Do 

:.H7, 


0.272, 

0 .293. 

0.779, 

0.2 50, 


9.200. 

SATO 

7 p P 

>15, 


o *5. 


0.217. 

C . 1 77 , 


0.1 36, 

SATO 

in'* 

*:.i5o. 


0.0 94, 

>.140, 

0.146, 

0,111 • 


0.13°. 

SATC 

:- G i 

r . 1 1 9. 


0.3 53. 

>.15?. 

‘ 0,1’’. 

2. 2' 9, 


0.1-3= • 

SATC 

~ G r 

'.117, 


0.04 6. 

•2 .Or 5 . 

2.564. 

C . Cl 7 , 


O.r ic « 

SATC 

*c * 

-0.910, 


—3 .0 t> 4 » 

- ‘ .C 5ft , 

-9." 27, 

C. f*?5 , 


-3. Cl?, 

SATO 

704 

-;.9C5. 


-3.2 3 2. 

-:• .c 1 1 , 

-2. : 75. 

-0. 016. 


-0.C51 , 

SAT.O 

7Q=. 

-1.9*16, 


-3.0 6 4. 

.C 5£, 

-9. 1 26 , 

-0. 274 , 


-3.C73, 

SATO 

906 

-1.123. 


-0 .1 1 1, 

-0.163. 

-3. 1 6r , 

-3.157, 


—3.125, 

SATC 

747 

**? « 122 , 


-3.176. 

-0 .1 r*. 

—0.167, 

-2.1=4, 


-C. 1 9C « 

SATC 

1 n a 

-"..175, 


-1.C41, 

- 1 .: 66 . 

-1.252, 

-1. 1 7 C • 


-1.103, 

SATC 


-1.132, 


.io“. 

3.3 35/ 





SATO 

4 op 

OAT A CL<"*«/ 








SATC 

60 r 

:.ic2. 


2.16 8, 

9.C ??. 

C. 1 57, 

C. 137, 


0.147, 

SATC 

AC 7 

: • i 23, 


C • 1 7 f. 

'‘.193, 

0.169, 

3.2'? • 


0.1«5, 

SATC 

AC 3 

1.2 05, 


0.175. 

0.2 72 , 

o . ; a -5 • 

0.195, 


3.21 3* 

SATO 

'04 

'.’35C, 

’ 

0.1-42. 

•7 .2 JA, 

3. **27, 

C. 2^*1 • 


0.277, 

SATC 

ACS 

:.226% 


3.20 9, 

*-.2 56. 

o.7C>. 

C. 3 25* 


C.255, 

SATO 

A f4 

*.355, 


C.l 74, 

•3.1 7,: , 

C. 16', 

0. f>9. 


0.O-7C , 

SATO 

fry 



0*11 9. 

>.l 

0. .'0* , 

C. 2 76, 


C .27- , 

SATC 

a r f> 

: . r i l * 


3.1*7* 

; •*, -*►« 


:• ; *5 • 


v . C 2 1 , 

SATC 

• - c. 

: . * t i ♦ 


3.2 5 2. 

* 9 ♦ .* 

/ • 5 4 *. * 




9.04? , 

S A T C 

4 ! :* 

*.,'61. 


0.7 5 e. 

> .3 0* 

0.092 • 

0.102. 


•3*112, 

SATO 

« 1 1 

.'.126, 


0.132. 

Mfv'. 

7 0, 

9. 196 , 



SATC 

' 1 2 

ft 


" 8, XT- 4 61 ■' 
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0.192. 

C .200 , 

C.l 07, 

0. 21 5 


0 . 212 . 

6 AT C 

' 1 3 

o.zza* 

0.233. 

2.2 40, 

C.C 49 , 

9. OM 


0.066 , 

SATC 

t 1 4 


9 .0 ° 1 , 

0 .1 06, 

C.tCA. 

C. 127 


3.15? . 

SATC 

* 15 

* . 1 'O • 

0.1 7 C. 

0 • 1 ft 1 , 

C.2C6 . 

C. 221 


0 . 22 * . 

SATC 

t J A 

?. = 56. 

0.264. 

0 .2 35 • ' 

C.246. 

0 . 339 


0,252. 

5 A T C 

l r* 

3.2 60 . 

0.310. 

‘ 3.1 12 . 

C. 044, 

o. 1 35 


C. 15.6 , 

SATC 

4 1 4 

* • 1 66 • 

0 .06 P, 

0 . 1 90 . 

0.2C4. 

0. 223 


0.24J , 

SATC 

* 

0 . 267 « 
OAT A CCC9/ 

C .277. 

0.2P5, 

C.773, 

0.'«7 


C. 231/ 

SATC 

S/TC 

4 or 

i ?i 

: • 257, 

0 .C 06. 

C. 01 9, 

0.9Z7 , 

C • 0 >3 


9.034 , 

SATC 

t 2 2 


C.C A 2. . 

0.040. 

C.C49. 

C. 05-3 


- 0.064, 

SAT C 

*23 

: . c 79 , 

0.0 9 2. 

0 . 102 , 

C. 3 91 , 

0.117 


0.114 • 

SATC 

4 2 4 

:*m. 

•0.10 4, 

o-.iic. 

0. 1 03. 

6 . 13? 


9.C66 . 

CATC 

' ?5 

O.CtlO. 

0.0 90. 

3.06C. 

C.9 75, 

C. 0’4 


0.C75, 

SATC 

* 28 

3.056, 

C .366, 

0 . Of 5, 

0.O52, 

C. C56 


0 • C f 2 , 

SATC 

4 ?7 

p.oso. 

0 .0 76, 

v . 0 7 ft , 

9.071 , 

C. 051 


0.C9I , 

SATC 

4 26 


0 ."64, 


0.061 , 

3. 0,63 


C .032, 

SATC 

A 29 


0 .10 0 . 

0 .3 «7, 

7. 1 Cl , 

0.133 


0.064 , 

SATC 

A ■» * 

0.C76, 

0 .0 6 3. 

r .05-*. . , 

C. .'B7, 

C. 1 1 ? 


0 . 1 ?c, 

SATC 

>7» 

■ 1 . 1 65. 

0.16 1 . 

0 .1 75, 

0.5 73, 

0 . 2“4 


0.223, 

SATC 

A •»? 

0.2 22 , 

0 .23°. 

0.2 54 , 

C.26?, 

P.275 



SATC 

L y. 3 

3 . 2 57 , 

0 .3^ 5. 

•3.3“Q. 

:.73>. 

r. 3*4 


0.346, 

SATC 

i. 3 a 

C. 1*5. 

C .1 1 2, 

3 .1 10 , 

C.l c=. 

0 . 3 *0 


0.06 C , 

SATC 

/ -’6 

377, 

0.062, 

3.347, 

0.645, 

r.o?o 


0.023. 

SATC 

A 1 f 

3 . C 1 7, ' 

0.0C3, 

0.9 >5. 

0.3 . 

C. Cl 2 


C.C Of , 

SATC 

* ?7 

1.316. 

C.049, ' 

C *C ?I , 

O.C 77, 

1 >9 


0.141, 

SATC 

ft to 

1. 2 35. 

0.170. 

0.2 JO. 

C.2C2, 

9. 23S 


3.25C . 

SATf 

f- 3 6 

“ • 7 *» 3. — 0*35;&» —0*366. — 0.?62. 

data nc„ n r k/45 A /* 

OO 10 ! - ■* . NCLOOK 

t c < -icrr i ot .oavnd u ) ) r,n in ic 
*?pri.ATE 

PATE=CCLC < 1 I-CLCU-n )/(OAYNQ( t l-TAYNOf l-l ») 

-0.4i4 

' 

-0,481 / 

SATC 
SATC 
SATC 
- - SATC 
• SATC 
SATC 

e a o 
' 4 1 
4 4 2 
/AT 
ft 4 4. 
4 45 

SATC.31 = t? AT CM 6 KFT I^-CAYNOt l -1 > } + CLCt 

PETIJ3N 

CONTI \U " 

PFTUPN 

enr> 

I-i J )«1 

-3 



. «ATC 
SATC 
-SATC 

SATC 

SATC 

t 4 f 

ft 4 7 
ft 4 a 
ft 4Q 
f. *.} 
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- 

KA*'*? 

SATC.?? 


pUtorjsr 

« 

PART 3 O p SATELLITE CLOCK 
. CS AT CL 3 } 

COPTCC TIHN r OP C.FOS 

CALLING StOJ=NCC 

X=SATC22(P5FT IM) 


SWnnL T^PE 

Qt SC P 1 *» Tt ON 


egPT IM ^ 

INPUT - L‘Frr*»=NCC T IM- 


S AT C 2 T -> 

nUT=>UT - CLOCK. CORRECT ICM 

IN ^C^MDG 

«UI*4»CU~IN p -S USED 

NC KE 


COMMON n LC C<S 

NONE ’ ■ - 

* 

In«ut r tLrs 

NONE 


OUTPUT r iLf?* 

NONE 



FUNCTION S AT C2 2 ( °E r T (m) 






SATC 

4 7 e 

Ot VCNSI OAYNO ( *3 9 1 , CLC( 435 ), niYN 

1 : ( 1 14 ) , 04 YN II( 11*1. 



SATC 

* 7f 

m 

nAVNt 2 ( i 14) 

• OAVMl 3 ( ; 

14 1 ,OAYN 1 4( 33 ) .CL 10 ( l 1* l.CLU ( 1 14 » V 

■ 

SATC 

4 7 7 

m 

cli?< : « a),cl t i: « )« 

CL 1 4 ( "*? ) 





SATC 

1 76 

EOUIVAL rNC= (0 

AYS2 .OAYNO C 1)1, (r*AVNlC( 1 ) ,0AYN-»(D 1 , 



SATC 

4 70 

• 

IOAVN1 1(11, 

C AYN^t ! 1* I ) • ( r ‘-A YN \ 2 

( * ) ,7A YM0( 

33 : 11 . 



SATC 

ftp'- 

• 

u'*AYN. mi; 

day v:i 

))♦ (OAYVl£(!),r)4YVO( 

453 ) > . 



SATC 

ll 

« 

(CL^e.CLCd 

) ) . (CL 10 

( 1 1, CLC (2)1 

. (CL 1 1( 1 1 

• C LC ( 116)) 

• 


SATC 

4 92 

• 

(CL! 2(1 ) , CL C ( 33 ) ) , 

(CL • *<1 1 , CL 

CC3*-)). ( CL 14(11. CLC (453) 1 


SATC 

A P 7 

O AT 

A OAf * 2, CLS */i5 7. A »» «, -f , Afl 1 / 





SATC 

4 04 

OAT a OAYfli o/ 







SATC 

l on 

• 

*57. iS73 , 

*.5 7. fFH i. 

* SR. C5 77, 

*5 9. * 0 56 • 

465. S7>- . 

*S9. 1 * 1 6 


SATC 

t B6 

• 

*5~.5C33. 

i5«=. 5S5S, 

46:.C734, 

4 6 C . 1 4 T 6 , 

•♦6C.5P1 5 , 

46C.526G 


SATC 

£ P 7 

• 

AC-1 . ~ 'MC,. 

461.46G2. 

4 6 l . 33 S4 . 

*62 . 7 ? 5 1 . 

4 6 7. * 77 .A . 

*62.54 p 6 


SATC 

4 p H 

« 

463. J i 79, 

*62. 496 1, 

-63 . Of t r , 

464.1 715. 

*64.4 Q-vj , 

4 6*. 6757 


SATC 

4 57 


A6S. - AR6 , 

4 6 5. 51 25, 

46*. 59 - 1 • 

465 . 33 1 e , 

‘♦66.1532 * 

466. 5266 


SATC 

* or 

• 

467 • 1 2 1 « 

4 o 7. 464 4, 

467. 53 a R. 

465. 1C 32, 

4F *.* 771 , 

*6 5.552C 


SATC 

toi 


**>C • 5576, 

4 5 7 • 

-6=. 0* 59. 

*7C . < 5 53, 

4 7.:. 5C - 7 

*70. 5701 


SATC 

AT> 

• 

A7i.:-7 2c, 

*7 1. 14 3 4, 

4’1 .51 59. 

472.C3S2, 

472.5 2^1 . 

4 7 7 , 6 C 6 9 


SATC 

«■. O ’ 

. 


4 7 ‘ . A 7 C 0 . 

473,^422, 

4^4.11 16. 

*74.461 7 , 

474. 6=;=* 


SATC 

4 


47*. I >5 0. 

-7<-. to? 7, 

47*,-6*2. 

i , ^.t"37, 

4 7 6. 5 0*5, 

476.5F25 


SAT C 

/. c s 

• 

*77.7 -»57, 

477. 1S1 C. 

4 7 7. 52 .7 . 

4 ^ .524? , 

47\.:s-'a, 

47?. 6525 


CSTC 

* Q 6 

• 

*7».S! Oa, 

4 7*. 1 0? 1 . 

47* * 47 3 2, 

4 ■'0.5*57, 

49C.1 153, 

4 5 0*4*46 


SATC 

A C 7 


4AC.T-.-3*. 

4 ft l. 12 a4i 

w«l . e 7 76 , 


-*2.51 ; -» . 

4 0 2. S 1 6 1 


SATC 

ft 0 4 

* 

AH2o-.*iO, 

V. 37. 170 J. 

157 = , 


11 5 , 

464. 16P7 


SATC 

/. r. a 

* 

*34 . A 3 66^ 

* n 4 . r: i os. 

495. 1305. 

A 9 5,4(«fi 

4M5.5* 19 , 

* 0 5 , 6 7 1 1 


SATC 

606 


A***.; J 37, 

£Of, *. ? R « , 

*P*.S6 3< • 

tH’.P'.A, 

437. 571 3 , 

467.576? 


SATC 

c ct 

• 

>H- .t A “2 • 

J . * 1 U 4. 

- ° -M , 

- ■ 4. '/.W, 

4-7.5?'*P , 

4 9 . ‘*r> 


SATC 

r r ■> 


4>:.;m*>7, 

4*:# i72i. 

4 « * . 5* - C . 

* p 1 . i :• 9 p , 

4*71.1 , 

4 0 1 . 5F 3 ? 


SA T C 

* r .1 
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♦92.1 221, 

49.?. 

199 2. 

407 

« 

56 67 , 

693. 

1353, 

♦ 91. 

5C46 


A<?3. 57 OP/ 

SATC 

4? 

C A 

OAT A CAVN1 1/ 













SAT C 

t* a 


40 4. 

15 14. 

4 04 


*9?S, 

A^c;. 

08=0, 

495* 

1 633 


495. 531 3 


SATC 

r 

C 6 

♦ a*. 1733, 

40 

Si 37, 

4 06 


- 2 re. 

4 0 ^. 

1123* 

497 . 

1 0 8 7 


4 3 8 . f. 5 /. O 


S A TC 

cr 

07 

♦ 97.5 0 95. 

4 Or- 1 . 

1 2 65. 

4 96 


?9 l 9. 

4 >9. 

4063 , 

A 9 6. 

S 7 ' 1 


103.1387 


SAT ( 

c 

* O 

♦ 99.50 33, 

4 3‘-. 

554 C, 

SO 0 


15 1 9 , 

see. 

S? 1 5 , 

5CC. 

5 572 


5 1 . C n 3 4 


SATC 

=* 

09 

SOI. 165C, 

90 1. 

534 7. 

SC2 


1C2 5, 

50 2. 

54 70 , 

SO 2 . 

6243 


50 3. 1 1 60 


SATC 

e. f C>* 

“T 

502.1943, 

50 2. 

561 C. 

*C 4 


1?92, 

S-4. 

?: 7*. 

SO 4. 

5742 


SOS. 1 12 ? 


SATC 

r 

1 1 

SOS. 5 I 25. 

5 “ ~ • 

"F. 7 4, 

pr r. 


77 08, 

8 >6. 

I S5S. 

506. 

SCTC 


so 7 . co?: 


SAT 

r 

1 ? 

5 37. 16 8 7-, 

9C7. 

r> 1 4 5, 

51® 


: p i « , 

sr 8 . 

S 3 1 3, 

SO 3. 

6 2 77 


5C<8. 1 1 97 


SATC 

r 

1 3 

5-39. 19 53, 

SC O. 

56 5 2* 

51 ' 


1.3 1 8, 

si 0 . 

20 oc , 

SI 0. 

5 794 


511.145® 


SATC 

r. 

1 A 

51 I .M 66, 

51 1 . 

*= 9 ? 8. 

5 1 3 


IS 92. 

612. 

ispo. 

512* 

e 31 3 


51 2. 6040 


StTC 

r 

! 5 

512.6006. 

SI 3. 

17 2 1. 

510 


f 4 7 0, 

SI ? ■ 

61 7C, 

51 7. 

6 14- 


514,1 rs? 


SATC 

f 

16 

510 * 5T 4 7 • 

SI 4, 

631 1, 

SI* 


56 79 . 

516. 

13 57. 

51 C. 

2 ! 7*. 


51 c. 579® 


SATC 

’ c. 

17 

5l6.-7€2. 

67 0. 

.3 5 7 4, 

6 7 0 


72 ! 4 , 

670 • 

7 9 63, 

67 1 . 

1 f O 3 


671.7346 


SATC 

c 

1 P 

671 .’8101. 

672. 

26 33, 

672 


7471, 

67 2. 

°? 40 * 

67?* 

3Q65 


67 3. 76 C 3 


SATC 

IT 

1 0 

.6 7 J .0370, 

o 7 ’** 

330 2. 

674 


65 o “» , 

674 . 

77 47 , 

67 S. 

3 43 5 


675, 71 24 


SATC 

f; 

?' 

6 7374, 

o7f . 

2b 1 7. 

67.\ 


7.? 4 9 . 

A7/, # 

80 1 3, 

67 7. 

2 f - 4 2 


6^7. 7a CC 


SAT 

r 

2 T 

67ft , * 3 74, 

07 0. 

75 1 2, 

6 76 


92 7 4 , 

675. 

?.o 77 . 

6 7 0, 

74r’S 


6 7 9, 94 4 ^ 


5ATC 

«r 

27 

630.3337, 

53 0. 

7C 6 1 , 

ss: 


77 no , 

69 1 . 

V* 63 , 

69 1 . 

7 1 J S 


65 1 . 79 0 P 


S A T C 

r 

23 

? =>?4, 

6-3 2. 

36 0 e. 

6*2 


80 40 . 

66 0. 

3777, 

63 ■>. 

7443 


633. SI 7Q/ 

SATC 

e 

?4 

DATA OAf': ! 2/ 













SATC 

r. 

?s 

5 94.3103. 

e o . 

754 6. 

691 


83 1 1 , 

6-3“ . 

72 40. 

63S, 

4CJ 4 


635.767P 


SATC 

S' 

26 

*P*.3774. 


7073. 

68* 


79 13, 

6S7. 

3506 , 

8 3 7. 

7 2 "0 


697.7942 


SAT C 


27 

6R3.7C45. 

66 6. 

7724. 

6P = 


60 8 l . 

68 0. 

7456, 

6P 5. 

321 3 


6 9C. 3 9 C 9 


SATC 

e 

2 P 

590. 7 a a3. 

■ * -» i * 

77 l 5, 

691 


°c h. 4 , 

632* 

14CP. 

€52* 

7103 


692. 7Pa 7 


SATC 

r 

3 C 

40?, 


7? ^ 1 « 

All 1 


738 3, 

684. 

16 79 , 

604. 

7 ^ jc; 


‘=1.«U C 


SATC 

*• -»r 

£ OS • 3 a 1 1 , 

-OS. 

7* n /» 

■*■• - — * 

5 95 


92 a 7 , 

*6 6 v 

It 70 

8 r >6, 

7625 


tn^oipt 


e * 

ant 

697.3311, 

‘9 7. 

7756. 

698 


•>4 4 2. 

69 8. 

748?, 

63P. 

3657 


AC-5, 2574 


SATC 

c 

32 

69=.=*C 13, 

7 0 . 

?7I 3. 

7CC 


74 - C. , 

709. 

31 49. 

70 1. 

3142 


7 0 1. 7 S 36 


SATC. 

r. 

7 •* 

70 1 . 3 .? ® 1 . 

7 W ?, 

'» 0 0 6* 

70S 


76*9, 

70 2. 

8420, 

7 C 7. 

334S 


703. 1 ICO 


SAT C 

»■ 

34 

7D?.’- 731.. 

7 C 4. 

-It 7 7. 

70-4 


73 20, 

7 04. 

3* Ol , 

70S. 

3603 


7 C 5.4360 


SATC 



705.9066. 

70'.. 

37 4 0. 

70-1. 

74 71 , 

77*. 

*134, 

707. 

3123 


7 0 7. 7SPP 


SATC 


38 

7C7.il 3 0 3. 

7 0 •■= . 

52 4 7. 

7 0<5 

• 

'-0 : 4 , 

'’0 8. 

*’7 44, 

7 0 O. 

3 379 


70 9.4 Ilf 


SATC 

e. 

37 

739.7954, 

71 

42 7 5, 

7 1 

• 

75 « 3 . 

7 1 1 • 

7- 45 , 

71 1 . 

4414 


71 1 .«ir 1 


SATC 

c- 

3 = 

712.9777, 

7 13. 

74 76, 

71 > 

• 

82 2 P , 

71 3. 


71 3. 

7612 


71 3. 9350 


SATC 

CIO 

714.3291. 

714. 

4r 4 P, 

714 

• 

9431 , 

7 IS. 

7- 1 6, 

71 s. 

4 177 


71 =. 7p88 


SATC 

«■ 

a C 

716. 7647, 

7 16. 

43 0 9, 

716. 

79 98. 

7! 7. 

If. 7 9 , 

717. 

44 = 6 


71 7.41 88 


SATC 

c 

4 » 

71*. 7611, 

7 1 c * 

46 8 3, 

7 1 8 


a ?62. 

719. 

3348, 

71 0. 

78^5 


7 1 9* 9394 


SATC 

e 

4 1 

72 - •r*ii. 

7? 

«0 75. 

7 20 


6S2S , 

72! . 

34 50 , 

1 . 

4 211 


721. 80 cr 


SATC 

r 

4 7 

T »s . n 5 92, 

722. 

*02 5, 

723 


37 13. 

7?3. 

44 7 P , 

77 3. 

P 17C 


724.3=46/ 

SATC 

c 

44 

OAT A DAT M 1 3/ 













SATC 

*■ 45 

77 4. >6 17, 

724. 

92 9 6, 

7 2 S 


**2 ?S, 

7?S. 

7709, 

72S. 

P42P 


7 2 6.4 1 CO 


SATC 

r 

4 F 

726.7512, 

7:s 

65 5 C • 

79 7 


*494, 

727. 

-’S3, 

777. 

7 Q 1 = 


7 2 9 * 4 4 1 4 


SATC 

c 

4 7 

726 .5066, 

729. 

9-3 3 5. 

72 9 


31 93, 

737. 

inn? . 

73 6. 

4 35J 


739.3233 


SATC 

r 

4 3 

731. V >14, 

73 1. 

7T2. 

731 


14 * 4 . 

7 32. 

78 S3. 

732. 

4 1 46 


733. 352! 


SATC 

r 

A 3 

7JZ.i27?, 

73'’. 

V y W - « 

73- 


**6 5 2 ^ 

7 84. 

3123. 

7“*. 

3 7 34 


73S.4S4P 


SATC 

c 

SO 

. 735 .“ 2S0, 

?3r . 

•916, 

7 34 


4* ‘'O , 

7 7 r. . 

1 >31 . 

78-?. 

4C4 5 


7“7. 4« 1 ? 


SATC 

r 

C » 

*»77.=*493 v 

7--?. 

**4 2 3. 

73 3 


41 .8.7 i 

7 3 8. 

9* 79 , 

78 5. 

431 2 


730. 5027 


SATC 

e 

p? 

7TC.377C, 

7 4.;. 

25 7 9, 

7 4' 


1.142, 

7 4 ; . 

31*5. 

74 « . 

35! 1 


74 \ . 467*9 


SATC 

- 

*a -» 

742.3 ^4 - ,. 

742. 

-.71 4, 

74 2 


94 •; 1 , 

7 <1 3. 

-C 87 , 

**4 3* 

40 75 


74 3. 3533 


SATC 

c. 

5 4 

» r- *f. * . 

7 

•* C 1 4 , 

744 


>• 7 ? * 

7 * . 

4 8 6=, 

7,:-. 

p*i 1 


746.4.47f 


SATC 

r 

a a 

7c* . >* l 64, 

74 ?. 

:* ** •. £ , 

7_ / 


3b ■> • 

7'. 

> T7, 

7„ 

•<4'i 


711,4 1 ; c 


SAT 

r 

7 » 

7^c .8 >6*N 

7": J. 

‘•ill. 

75 *• 


r 7 • a , 

76 ; • 

»* 1 6 , 


9388 


7S?,4C 1 2 


SATC 

T 

c. > 

762 .5213, 

7 6 

4 ti 8 0 » 

76 3 



75 4 . 

*01*** 

75 4. 

F4 = 4 


7 = S . 4 ! 4 I s 


SATC 

«"SR 

75r.’r. 34. 

756* 

1-77, 

"’S >. 

87 —7 , 

76 7. 

u4 78 , 

7 S 7 . 

0 «^2 


763,4675 


SATC 

r 

59 
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T*>?.9.5 19, 

75 9.<*707, 

759. 6331 . 

Tfil .*6 ?S, 

76 2. 431 2, 

762. 87 70. 

764. 33 4R , 

765.4714. 

7 65. 84 30, 

76F .4 ?4f,. 

76 r. 83 0 4. 

7 6 "». 44 7^ . 

•771.7-5 P.4, 

7 7 i . 6 4, 

775.41 1 6, 

OA T A DAVN14/ 

774 .4*,C 9. 

774. 8638, 

775. 4512 . 

777.4 ao 5, 

777, 1 , 

7 7 A. 49 1 5, 

7«:.i^ft3 . 

^ 75 , 

761.4543, 

7fT».i0 3$ f 

73 3. 9 2 7 7, 

734.497?, 

7«f .4475. 

746.-8 9 0 9. 

737.4617. 

7B9. 4 5-36 . 

739.93197 


DATA ci •;/ 



-5.1 32. 

-C .1 2 4, 

-0.1 7fl. 

-4* ? 35. 

-C .30 C, 

5.340, 

: is. 

-3 .524, 

-0.227, 

-3.1 3 0 * 

-3.130, 

-C .1 64, 

-3.216. 

-C .352. 

-6 .366. 

“5. *59. 

—0 .4 6 5. 

-5 .490. 

‘5.1 65 ■ 

3.122. 

5 .090,. 

312 , 

-0.3 1 5, 

-0.3*6. 


-3 .2 1C. 

-5.211* 

-3.213. 

-0 .34 2. 

- 5 .3 4 6 , 

-3.659. 

-C .4*3 6 . 

-5 .4 73. 

>.271. 

0 .2 f 4. 

3.236. 

3*196. 

0.182. 

-5 .270, 

:.4T7. 

9.6 AP, 

* . 4 A A • 

r . S4 . 

0 . 4 f 1 ; 

: ^• , 7- 

3.42?. 

0.6 11 . 

6.360, 

3. 19i3. 

0.176, 

r. .1 79, 

’ 3.167. 

0.163. 

5.164, 

3. 175. 

0.180. 

3.ie4. 

DAT * Ct.: 1 / 

-'.194. 

0.199, 

C . 2 5 3 • 

: .232. 

o.?cs 

6 . 2 12 , 

% .^37. 

0.245. 

3 .240. 

• ?.2*4, 

0.2 50. 

,0.226. 

3. £.28, 

0.2 2 1 , 

.229, 

3.240. 

0.249. 

C .260 , 

3.279, 

0.260, 

0.393, 

3.261, 

0.254. 

C .249, 

*.2 37, 

0.234, 

r .2 33. 

- *. 212 , 

0.2 3 a. 

•: .2 it. 

?. 752. 

0.2 34, 

5.319. 

-•». 343. 

0.3 * 

-5.326, 

•/. »Jil« 

-3.139. 

- C . 1 5 3 . 

-5.1 39. 

-0.15 2. 

-c . 1 44 . 


-0.151. 

- . 1 c * . 

-1.156, 

—0.1*2, 

-c .1 ?? , 

.197* 

-3.222, 

-:.ps, 


-3.18 7, 

-0 .1 84, 


-2.1C7, 

-:.253, 

r.iu a:</ 


A 

- • • 1 24. 

5.2 

-C .2 11. 

-‘.22°. 

-0.227, 

- 5 .2 4 t * 

;• . : 58 , 

0.16 5. 

C .1 7*, 


76 5 .'4 O'.' 4 . 

7*5 5. B 956 , 

7f t. 4i ec . 

SATC 

p f> 

763.4447, 

76A,69'9 , 

764. 4 57* , 

fiATC 

1 

746. 15 43 , 

7*7.867? . 

767. 9470. 

SATC 

«--6 ? 

769, -J643 • 

770*3813 . 

7 7 3. 9C7* , 

CATO 

* 61 

772.^532, 

77 7 , 42 4 6 . 

773.8706/ 

SATC 

* 6 * 




5 AT C 

*=65 

775.8904 , 

77 A, 4 644, 

776, 91 1 6 . 

6 AT r 

* 66 

7"* j . 34 It. 

77 O. A ?-;2 , 

7 7 9. 67 f, 5 , 

«■. a t r. 

r 6 T 

73! • 35 34, 

78? •475''* 

7 6 ?. 91 SC , 

5ATC 

ran 

734 . 3665 , 

715. 6<.5° • 

755.679?, 

SMC 

* 69 

73 7. 9C 41 ♦ 

7? 3. 4716, 

7*16. 91 7£ , 

SAT C 

e 7Z 




SAT C 

*71 




SAT C 

*■7? 

-0.216. 

-0.216, 

-0.257, 

SATC 

c 7 7 

- 0 . 475. 

-c . 375 . 

3 . err , 

r»ATr 

= 74 

— C • C 7 4 , 

104 . 

-C.15C, 

Q a t r 

*- 76 

-3.522. 

26ft . 

-0.25 p , 

SATC 

^ 76 

-C. 3 91 . 

- 0 . 3 ^ 6 , 

-C.4?C . 

SATr 

c 7 f 

-0.494, 

- 0 . 557 , 

-0.5 55 

SATC 

f 7« 

*>.0***>, 

3 ?s , 

0.07! . 

S*Tr 

* 7a 

-0.0 36, 

-0 . ! 14 . 

-0.128, 

SATC 

c 83 

—0.249, 

-5.2^7, 

-5.277 , 

SAT C 

B fl 

-C.37-*. 

-5. 431 , 

-0.41 * . 

SA T C 

cc 2 

’ 0.30', 

C. 291 . 

C. 276, 

S* TC 

T Ol 

C.73?, 

0.211 .' 

C. 193, 

SATC 

r P4 

- 0 . 3 5 3 , 

, 

0.479, 

SATC 

c n ^ 

0 . 4 4 •» . 

0 -464. 

o,4*r . 

SATC 

CO*, 

5 , '*72, 

C*V?> S 

0.4 3* » 

cat r 

<■. 0 ** 

C.221 . 

0. ?10, 

5.211, 

SATC 

c a a 

0.172. 

0. 169, 

0,176, 

SATC 

«* P cj 

0.169, 

C. 172 , 

0.17?, 

SATC 

« c r 

0.133, 

0.183, 

3 • 1 Q 7/ 

SATC 

c c 1 



— 1 

SATC 

c 0 ? 

0.204, 

0. 2’. 5, 

C.216, 

SATC 

c 9 1 

3. 2 2 0. 

3.227 , 

3.230. 

SATC 

r -o« 

0.247, 

3. 256, 

C . 2 .-3 ? , 

SA T C 

C OC 

0.213, 

0.224 . 

0.22 a. 

SATC 

= 06 

0.23’, 

C. 94? , 

3. ?6f , 

SATC 

C 

C. 257. 

0*2 66 « 

0*280 . 

SATC 

c O *> 

0.114. 

0. 324 , 

C .251 . 

SATC. 

e c q 

0.246. 

0. 249 , 

3.?3P. 

SATC. 

* r " 

3.2 14. 

0. 25-8, 

C.23A. 

SATC 

*5 1 

- 5.9 05 . 

-6. 9_<5 , 

• -8.92r, 

S4T C 

* r ? 

C. 122, 

-0. C-4 3 . 

-3,040 , 

SATC 

* r 7 

-0. 128, 

—3. 3?S, 

rO.?3A , 

SATC 

r r a 

-3. » 61 . 

—3# 1 36 , 

. 1 46. 

S AT C 

6C C 

-5. \ 38, 

-0. 1 4 1 . 

-".1 27 , 

SATC 


-C . 1 47, 

-0. 16 ? , 

r .O 

SATC 

* r»7 

-3 . 254 , 

— 0 .2^4, 

-0.233. 

SATC 

* 0 0 


-r.pT. 

-MP^. 

SATC 

* r 0 

-3.1 81 . 

-3. 1 33 . 

-3.1=6, 

SATC 

*1 r. 


-3. 21* . 

-:.2i c / 

SATC 

* ! \ 



• 

S AT r 

' * J 

- 5 . 2 15 . 

-0.5^, 

-C.26A , 

SATC 

£ * 1 

- 3 . ? 4 : . 

■5.1=?, 

A* \ 93. 

SATC 

* ' 4 

C . 1 6 4 , 

0.1-3. 

: • t r 6 , 

SATC. 

* I s 
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• Z * 1 62 « 

0.152, 

C .16 2, 

2.1*5, 

C. 154 a 

0.157. 

54TC 

* ! 6 

• * • 1 6 3 « 

0.135. 

6.1 45. 

■3.1 3 A , 

-.141 , 

0.140, 

SATC 

5*7 

• 3.145. 

2.1 24. 

2.126. 

0. 1 CO , 

3.CT7 , 

0.070. 

5A.TC 

' 1 4 

• 2* ?75« 

0.CB2, 

6.-95. 

C. 6 9*, 

C. C99, 

3.107, 

4 ATT 

« n 

• 3. 1 26, 

0.114. 

3.113. 

2.11?, 

2. “* « 

O.C , 

SATC 

t. 

• : 45, 

-0,0 50, 

-6 .0. 5*^, 

— C . « * t , 

-C • 055 « 

-C.rof, 

5 A T <* 

* 2! 

• -3.270, 

— 0 .C 7 5, 

-C .2 *Z • 

-0.*' *5. 

-C. 6 = 0 , 

-C.C9C , 

<5A-rn 

* 

*. -3.095. 

-0 .IOC, 

-3 .1 i 2. 

-Cal 1C* 

-tallS* 

-o.i l e , 

SAT C 

* 27 

. — 3 , 1 C7 . 

-2 .1 C 7. 

-6.114, 

-C.l 05, 

-0. 1 ■»*= . 

-0.13’. 

SAT C 

' 2 A 

• . -C.I47. 

O.UC, 

- 0 . 1 * * , 

—0.1 75, 

-C. 1 7 t « 

-2.15 4 , 

S A T C 

6 ?? 

-• "?i l , 

-0.194, 

, 5 1 1 , 

- 0 . 9 1 c t 

-Ca2’6. 

—3.2 ?r. 

SATf; 

6 26 

• -t.232. 

-2.225, 

-2.043. 

- C • 0 ? 5 • 

-v • 375 • 

-0.-36. 

5 AT C 

* 37 

• •)» Jfi4* 

-o . : 4 1 . 

-3 .0 ”, 

-C ,C 07. 

-C. 110, 

-9,111 . 

SATC 

< ->q 


-3.13 2. 

-0.173, 

-0.144, 

-2a 1 n» , 

-0 .173, 

SiTC 

f- ? = 


-3.1 7c. 

C .’c". 

0.229, 

2.276. 


5ATC 

5 "*r 

. t. 2 10. 

3 .194, 

2.1 92. 


C. 175. 

0.179/ 

SATC 

6 31 

OAT A CL*. >/ 




* 


SATC 

57 ’ 

• 3.171, 

0.16 5, 

C .1 54 , 

C . 1 44 , 

3. 14*>, 

0.144. 

5 A r r 

€. 1 "> 

. _t .133, 

3.134, 

0 .1 -»2, 

0.135, 

C. 17A , 

0.116. 

5 A T C 

» ■** 

• 3 • t 17, 

9 • 1 1 C • 

0 .392 , 

C.C99. 

0.0*4. , 

C.C59. 

S*TC 

-35 

• . c 9 1 , 

3.365. 

O.OpS, 

C • 7 2 * 

t.CH3 , 

C . C. 5 3 . 

4AT r 

#.T* 

• 3.057. 

0 .2 34, 

0 ♦ C 4 5 . 

C.C24, 

C* C31 , 

o*9 , 

CAT 2 

• 17 

4 • 3.031, 

0 -ObC. 

0 .0 

0 . 3 32 . 

:.c i6 . 

c.ocr. 

SATC 

* 7 « 

• ' 2.0 27, 

C . 3 1 3. 

0 . 0 : 7 , 

0.2 1 7. 

t • c_ . 

r . c l o • 

5 AT C 

c -12 

• ^ ? 23 , 

o .o : e. 

C .0 1 3. 

C.l 02, 

2 a Cl 5 . 

3.01 * , 

SATC 

5 4 f> 

• 3.023, 

3.2 15, 

C .3 *»9. 

C • v 2 2 * 

4 .7?C . 

4.74C , 

SATf 

5 4 1 

2 . 1 2C , 

0,124, 

C .1 1 5, 

C. 1 In, 

C-. 125, 

C.127, 

e ATC 

5 A T 

a C. 1 16, 

3.125. 

C .1 1 5, 

c.i n. 

C.l 07. 

0.123, 

SATC 

5 4 * 

• 3.122. 

0.124. 

P • t in. 

0.124. 

Call ?, 

C.10«, 

SATC 

* A A 

• 2a 1GS . 

0 .0 5 7, 

3.295, 

0.: 33, 

Ca C" 5 5 . 

3.300. 

SATC 

6-4 4 

' ' • ' ?*c , 

0 .2 -35, 

2 .2^9, 

C.-3 ?T. 

C . r h ; , 

0.066 . 

c a rr 

7 4 6 

. : • 395, 

0 .056, 

C .343, 

C.C’l , 

c.cr?. 

9*037, 

SATC 

547 

a -*.0 2 9. 

0 .0 3 7. 

-.0?5, 

C a ‘i 7C , ■ 

c.c ?;/, 

0.C2C • 

SATC 

*4 «* 

a 2 A . 

3.2 2 3. 

0.0 29, 

0.273, 

C. ’35, 

0.2?4 , 

SATC 

*• 4 9 

• >.350. 

0.35 3. 

3 .305. 

C. 300. 

0.307, 

0.325. 

SATC 

* s.r\ 

. -• — . c -?4 . 

3. 30 7, 

C.316. 

— 3 * v 9 3 , 

-2.09? , 

-C ,C°4 / 

SATC 


OAT A CL 11/ 






SATC 

tt) 

• -C.C92, 

-3*1 C C. 

-.3 .3 31, 

-0.3 03, 

-2. CC'i . 

— 0 * C c 2 . 

SATC 

6 5? 


—3 ,390, 

-3 .O’o, 

-c . : 9i . 

— C a *!*?■? , 

-0.091 , 

SATC 

6 54 

• -2 . C 91 , 

-0 .052, 

-C .1 ■» 1 . 

-C.1C4, 

-C. 1C:-., 

-0.11 5, 

SATC 

656 

• -3.120. 

-3 * i 2 0, 

-0 .6 96 , 

-C.l 3C. 

-0. 1 ?c . 

—3', 14 3. 

SATC 

* S 6 

• -:.i?a. 

-3.125, 

-3.117, 

-0.123* 

-C. 115 . 

t*0. 11". 

SATC 

657 

a •* . 1 26 . 

-3.112/ 





SATC 

6 CO 

OAT A HC_*)CK/43 

/ 

• 



• 

SATC 

f so 

0 3 It l = ?,NCLnrt< 





SATC 

*661 

inp^fjM.r.T.oiYNMm c.o 

TO 1 C 




SATC 

< 6 1 

MTr CPTiLATt* 






SATC 

* 6 5 

( I >-c 

LC [ I - 1 ) )/ ( PA YNO( I ) - 

OAVMOt t-D) 



SATC 

*67 

SATC’ 2= (3ATEM 

9 F F T IM-C\YNO< t-1 > 1 *CI. Cl 1-1 1 1 *1. 

5 — 3 


SATC 

* 64 

SrTIPN t 




* 


SATC 

*6 ft 

k rr\riM.i- 






SATC 

*6* 

• Rriu-»K 






SATC 

* 67 


• 

• 



* . 

SATC 

6 4 U 
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NAME 

PURPQSC 

Calling sequence: 
sy^eOL Ttpf 
. NSrARD 1 
Subroutings used 
COMMON BLOCKS 

-INPUT' F ILES • 
OUTPUT r ILLS 
REFERENCE 


SI MHO 


TO READ 

SI HULATGD 

DATA TAPES 



CALL SI MAD (NS TARO) 




D ESC R I PT 

i On 


• 


l NPUT 

NUMBER OP 

STATIONS THAT 

were read 


RANDY/R 

TP IF 

YMD AY 

NUM BR. 2 

BIAS 

APARAM 
CST1 NF 
STA HUM 

CEPHETM 
<TJ ME 

CGCOS 
I NT 6LK 

CONST S 
PREBLK 

CP ARAM 
S I GBLK 

I 03 S - DATA T APE 

/ 

t 


PftI NTER 





«6EOD VK 
VOLUME 3 

PROGRAM OPE RAT TONS PCS C 
- CtlODYN pocunentat icn 

RIFT ION * - 

appcnoi 


» 



. SUBROUTINE SI MROC NSTARO) 

IMPLICIT i '( ii.*- 1 i It 

LOGIC# L*l C)K«# T ,V.n c CMh,,f F-PPC _ 

LOGICAL M* ATi- . £AT5/ T 

lNTtC::F.*2 CLLL.OV.N .L «Nv: AS .KTYPf ,P^TYP, IMTYP.L. IST^NC. I3ATNO. 
• GT# NO «I ST/ PS- „ I STAND. ST ANCS .Jr AS t.KSASF . 

INTI 0*'R »>2CNC 

°* TOI^ • SIG.STO .f- A Y1 NT .SIGCHG .SGPFM 
0£>U3L? p-irisrcN jna «na*\ 

Cl*4ENStON SiC(r. » 


~C3'4VGN/AP» s«l»/I KPAF .1 NPAF I . N*I A S . NS T ST A .N5AT .NGPAFC (5 > 
CCMMON/CIPHcM/JN# v,. :< 3 61 I •IOTAFC <3oI > .L3 T A SO ( 3 a J ) . IS T/NO C 266 > 
COMMON /Ci»:o S/-I irA T2 ( 2 ) «! KF~P « (2 50 ) . K FFC. • NS IG.NCULL *S ICCHGC^C )• 
rn |MT \P(* (SC) .1 ST N(.i (SOI «C UL L (2 . 1 OC I 
CO-4NCN/CU1STS FI .CTwCPI .02F.S2F 
COMMON /CPAK AW/NST A • M/( ST ( 1° ) 


COMMON/CSTINF/’J‘?3S^{^83),K^AS-{2 03>,Lt'Af.;- 
CC-MMON /C TI ME: /CA TAZP .DAYFF F * CAY F * CAYSTP* C# Y I NT { 1 5) 
C0MP0N/INT3LK/I NT0K1 (53) • NO FAT L • I NT F "2 ( 70 > 

CO^CN/^-LK/OAY,OlSl ,C£S2 .SI Gl . S I G 2 , 5 F F N^X . I S T A . M TYP E , N«*6 A 
• ISATN3,aSF.TYC,CHANc.L . VH- CH\ . FF " F ; C, F'-'KU 

CCMMCN/SIGULK/SIGSTC (?C ) .SGFFNT<2C > * TORS. ICTAPE (3 ) 

COMMON / STA NLM/?;Amj; ( 2 5 G ) .STANCS<2eD ) .NC 5 T 0 F 
LOUIVALENCS ( SI Gt 1 ) . SI G1 ) ,( KKSAT ,S l G2) 

MTlMz(DAY)=Ti.IF{ 4,2 ,L A Y > /Q . 64 6.4 * 

INITIAL l/l 

If C 102 S.LI.C) I CS 5=21 


Simp '■* 7 
SIMft 2£ 
SlMO 2 9 
S|ms 1C 
S I MR ?I 
SIMR 22 
S IMF 32 
S IMF 24 
SIMP 25 
SIMP 3£ 
S I MR 37 
SIMA 

SIMP # 29 
SIMS 40 
SIMP 41 
SIMS 42 
SIMS 43 
SIMS 44 
Slvp 4S 
SIMS 4 6 
SIMP 47 
SIMR 4 6 
SIMP 4? 
SIMS 5C 
S2MR £1 
SIMR 52 
SIMS S3 
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n-'-s; 

tit r-.“ * • *’• •. i. S’. ’ 

C- -J. -:i . ; : - 

- - -* ‘i < i f , t. *■::.) : v , im*. , - -c ,ciz. , 

.t* .l 

* XM ! «* 72 t ; 1 . C.2) 

O/ *C 2J 

-C.P/.v :v £ ~ V. T ! 'Sc 

2C f ! J- I. '.?=?'■ J> tWMVv^cc-St.CEi 

• v I Y r i ♦ t *’." ‘ : » I l-k T ! I. » j»r K>X » CH /■ IL 

C ->». c* 7 :ll i Ti ; : 

3- CKS^T=.-.*uiir. 

Cl* AC 1=1 .:<£/* 7 

1- { L KSA7 I SC 7 ' AO 

xsa ,, ^o=j / 

OKS* 1e JStTIL # .0«1 ^AT2 n I 
4C Cli*4 7I?^-' 

i r ( .n-?7.o --at) cr t: a 

C Cm: c* S*C"JN*;, ill Tiuir l.\!- r*/CKlKS 

|F(HYc.,r...i,.N. ,i:7Yr..,\:.3) c,c tc a* 

SATiAT=K< i* 7. ST. : 

Xr< .NOT. SATJe.7) G C TC -4 
t X~( N£A 7.L7. 2) GC TC 2C 
OK 5 A 1=|F *L 5V« 
n 4£ isi.meat 

CrSA1=KKiiT.i 
I C C .NO l.C* iAT I GO TC *5 
ICICSATssI 
GC 7 n 4 d 
AS CON 7 IN Lt 
GO 10 20 
A 6 NN 1 = C . 

NNC=C 

X p t K£I G.L?. C) GC 70 60 
C CHICK SIG-U C HA r^Gd 

CO £ C 1=1 .NSI G 

1?C 1 5N .Ms. I STnCHI ) ./ Nn. I STNCd ) • Kr. • C I GO TO 50 
IFC F TYP£ ■ CO • I V 7YP ! ; I .os. IMTYP: ( II . tc.c ) NNlsi 
I p ( m 7 yp:: ,;t, 7 1 gc tc sc 

1F< »MYPi«-7. CO.! f^T Y Fc. ( I ) • C&. I VTYPCt I ) .LC.3 ) NN2 = 
' 5C CONTINLS 
6C ISTA =1 £N 

C CO'PUTi TIM IN A.l £ A Y S F PC M JAN C.u 

■ CAVsYMr/ Y( x Yvr:«lHM.StC) 

CAYOA Y*Ai TI v;:< CA Y> 

XF( CAY.LT.OA TA : P) GO tq 20 

IF( CAY.GI.OAYSTp) GC TO 200 

C CH*CK Pen "sTATJCN PS7.SLNT 
IF( ISN .iO. 0 I GC= TC 1 0 0 
v ISN=NU»OP2( IS7A .1 STANC .NSTA) 

IFCISN.GT.Cl GO TC 90 
|SN=NCVi3AJ{ I £TA .1 STASD .NSTA CD) 

" 1“ C 1 £N .GT. 0 ) GO TC eo 



K * "* * 

«* V 


#. »•«; 

k i. 


5 »• - 

V » 


S iv* 

; 7 


SI*-. 

k 3 

• •• ' ' 

£ t'* T 

r ' 

I c 5 u*:. if ?. 

SI"** 

*: 


e tv. 

* \ 

* 

£ : 

r 7- 


5 tv.’ 

4 1 


SI 

* i 

: c :.c ice. isn. 

£ Tv = 

* ~ 


5 I**- 

c e 


Sivs 

67 


sr<- 

6c? 


£ IMS 

c i 


£ Jv- 

7- 


Stvs 

71 


SI vs 72 
« IV 5 7 2 

£!*»% 7* 


£ ! v — 

75 

SIM? 

76 

£ t*s 

7 7 

Siv-. 

7€ 

S IMS 

79 

S IMS 


SIMS 

ei 

Slvq 

P2 

SI*- 

c 3 

SI*S 

£4 

SIMP 

- 5 

£ IMS 


- C IM» 

^7 

SIMS 

ee 

£ IM-* 

£9 

£ IMS 

90 

SIMS 

91 

£ IMS 

92 

S IMP 

93 

SIMP 

9A 

SIMP. 

95 

SIMs 

se 

SIMP 

97 

SIM=> 

9? 

SIMP 

99 

SIMP 

100 

SIM* 

101 

SIMP 

IC2 

SIMP 

103 

SIMP 

10 A 

SIMS 

105 

SIMS 

106 

SIMP 

107 

SIMP 

loe 

SIMP. 

1 C 9 
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» : ( I t’f. i T . ) ... *1 

ru‘ T *. .-'tk. c* -> t: .i. 

t. : : 

" = .* v- 

; AT*-.. ( ; ■•*• } -l v7A . *•• 

: t , 

!-■.=!£• 

!•■{• *VS- r... t; ; vi 

C t- *. -7 s-aticn vl?i c c -'v^ . \ta 

***• j:l 

'*?iUS7«, .1 :iTts.C.N : T;) 

*1~< Ci K if T- 

■ i r ( Ic'ii.GT.c) SC 7r >2 
■ . i * — *« C 1 * ~ (I Z. T ~,i_ % C T .L'/i • NOT-7 r “ ) 

I ” < I 5*. 2 * C ' • “ 1 GC tr j* 
w- 1* liT.i 

GO Til £j 
■ »2 NSf/=NSTi*: 

I:-I£=M£T; 

*ic 0*4 f. :l =1 ! > 42 

!FUK* . O.U Gw TC ‘7b 
* co 9c is.,LfA5: 

in l SN .?4 . < I ) ) sc TC 9 6 

IFC ISMC.*' KmmS li!) GC TC 96 

gt to i;o 
-i*> C'jntini; 

li * £.:=L r is i-:*\ — 

JJ4Stf LiAS/ >=!3N 
£ .< LO„ J _' > =1 ?.M 

ICC HKM.L',.;) G J TC ISC 

C CONV.JT NT StGVAS TC P&CPCS UNITS 

IMIMTP r.’.T.H) GC TC 3 CC 

GO TO Ci >.115, 12C*Ui:*13C, 135.110) »*7YP“ 

21C 51G 1 = 3 IGC-^G ( f-M ) * 52F/CC CSCOSS2 ) 

- GJ TO JSC 
US SIG 1 = S IGCHG ( NM 1 
CO TO 15J 

12C SlG 1 =0 • 91 0 0 * 5 IGCHG ( NM) 

GO TO 15C 


l e < ilGl.LT.l.cr 0) S1GI =CSCPT(t .OCO-S IGI > 
SIG1=S IGCHG ( f.M ) *1 • CC— 3/SIG 1 
GO.' TO 13 3 

125 SI G1 = S IGCHG (NNi ) * S2 F= 

150 IP(NN2.La.O) GC Tu 170 

--GO TO ( 155* 1 7C • 17C .1 60 *165* 155 *1S5J .MTYFr 
155 5IG2=S IGCHG ( NN2 ) *S2& 

GO TO 170 ; ' . 

16C £1GS=SIGCSS < r.tv2 I *C.C1C O 
GO TO 1 7 C 
155 SIG2=0«S3**2 

IF ( £ tG 2 «LT • 1 • CO C.) 5 1 G2 =0 $ QP T ( 1 • 0 CC ^ S I G2 ) 


5 I” - i*: 

sr«- iii 

j;.* . It 7 
5iv- 1 : 
fVJ- it* 

£ j * * 

5T-JT : : i 
I-jv* i ; 7 

•< »•«« * » J 

S!v= 

Sivr, ;j\ 

C T -> ? J , ? 

si*--. ir:* 

!«. A 
£t«r * 2 V 

SI*~ : 125 
ST*~ l.t 
S Iv- 12 7 
SIm: 1st 

SIM-: 125 
SI M-* I ?C 
Slv- 131 

SfMG 1JI 

SIM= 133 
STV3 

£1*4 ITS 

simc ue 

f l*F 1 3 7 
SIM* 13d 
SIMP 139 
SIMP nc 
SIMA 141 
SIM- 142 
SIMP 143 
S!M= 1 *» 4 
SIM**. ICO 
SIMs 146 
SIMP 147 
SIMP 146 
SIMP 149 
SIM* 150 
SIMP 151 
SIMP 1£2 
SIMP 1 S 3 
SIMP 154 
SIMP 155 
SIMP 156 
SIMR 157 
SIM* isa 
SIMP 159 
SIMR 160 
SIMR 161 
SIMP 162 
SIMP 163 
SIMP J64 
SIMP 165 
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REPRODUCIBILITY OF TEES * 
-ORIGINAL -PAGE' IS' POORr^, ' . . 


•it \l-t !%*:-».( Iv\,; ) « „* - 2 SHJ 2 «u ,; 

r: to , s: 

3CC :*T>* '7V*'-t« . . SJ**' 

•sivn.i'.jij ■ siM-i 

G3 ■*:* c i *=* : • :? ; r.j’ ? «i /; *.v?. • sr. i. 22 : . 22 :. s :*■*-' 

• :i. .v -j . £ i^. 

21 i cl J *. =■ J I i i * - . si v= 

5' T”r 57. * 

22^ £1 s* 2 .* i K^r. ( v/, ) »• , i; -i) .. ST'*‘- 

•s ^ ■’i* ; ^ . $»v»’ 

22 * si 5 i -;r 1 ( v\i j & • . . •. sp» r: 

W T:. 1 17. * sjv< 

227 2 ! *i ; * i C -c Sl^- 

17C 2 MULL*. J . ; I 5_ 7' Wr: sjyi 

C Cm.Ck 7 r,A i lUv.V.KTS c LLLIT sjm,v 

IT 166 ! si »K.‘ILL £!.■<•“ 

*>"’ i£S J=i,N*- :/ £ Sfvr. 

l”l KL*1o' “> J 'CLLt C 1 .1 > > 1 r J = . 2 2 > .1 7‘j itw 

27E I-CSL*' 1 *"': J.r.1. rULL(i .1 > ) OC TC i-iZ SI** 

l*' sigc Ji = j.r c / sim^ 

2dl CS* ‘I '4L~ * . Siws 

15S NUM' ;? - iL'-St .c +NV., AS 

**-_C f.fJ= 1 £Jy? 

C CHLCK 

|FCfi f '!A5.iT,:j CALL OIA6 ' ST”* 

C STCi' T-:.-cv,riCN£ • Six:? 

‘ CALI ”AN-;^ . ■ StM3 

53 TO 20 * sim=> 

2CC M^Yt;=C S|M» 

• 16^=0 SJM-* 

C LAl 1 =??_CU»0 STOP* TYP-; AND 3TAT1CN ZL^C S!M» 

f'£CNO = c l C.%u + 1 SIMT 

CALL PAM' k" % '. SIM° 

P-lNt ZCLj. .! CrJS •• SJv> 

CAV-Tf >=3*r ’ SIMA 

FXTLPN SIM' 

1CCC FJRVATC 1 X, * STATION * . I 4 , • NCT 6 CUN'v IN FIL’M 5lM = 

2CCC FORMAT ( 1 H j / /2 ? X . I 6 t * Cc jZ c V AT I C N5 S'LTCTIC FPCM *MA STIA S IMUL A T* C ,f * S IM? 

• • DATA TAP! NUVS:5'.I3) SIM? 

'tND $]M3 


W 

I:* 


17! 
• y r 

174 

l’r- 

177 
1 76 

175 
1c 7 
1 

I *2 

ie? 

1 C A 

ie~, 
1 cc 
1 ft 7 
I - ft 
I ?9 

190 

191 

192 

193 

194 
I 9 S 
196 
157 
152 

195 
£CC 
221 
292 
203 
20 A 
£0S 
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SQUANT is a subroutine which computes quantities 
related to the Earth-fixed station positions. The first 
call has a different processing than the subsequent or ■ ^ 

normal processing. 

The first call processing for each station con- 
sists of 
* 

/ 

• convert <p, the geodetic latitude, and X, 
the east longitude, to radians. 

• compute the Cartesian coordinates. 

• If the station is to be adjusted, compute 
the’ matrix of partial derivatives of the 

-rectangular coordinates with- respect to 
the geodetic spherical coordinates. - ' 

compute the N, Z, and E with vectors 
describing the horizontal topocentric 
• coordinate system. * 

Subsequent processing consists 

converting the adjusted' rectangular 
station positions to spherical geodetic 
coordinates, and their covariances as 
well (using subroutine PLHOUT) , and 

recompute the N, Z, and E unit vectors on 
the basis of the new (adjusted) positions. 



a n *7 a 
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KAME 

* 

SOUANT 


FKTRY PCI NT 

puppr.se 


SOa?;t: 

1NIT SAL UATZ3M 


SOU ANT 

TO CTNVCPT STATION POSITIONS TO. X*Y if COOSDINATF 
SYStF« ON F P f T C At.L A NO TO P H I , L A VM“H , H 

**• * . I 

COOHOINATF SYST C M ON SiJPS-QUFNT <"ALLS ANT 
CnMUTF ^AKTIALS OF X,Y,7 M l TH Ut^PCCT TO 

PMI.H 

TO 

LA MRfJA * 


C4LL!K« SEOJ^NCF CALL S O ANT! ( M, HA » TL . n LM S 1 0 . STA X Y 7 , EH \T , NH AT, ZHA T . 

TH»7 IM.^LAT . 1LOM1 


symml 

▼TOE 

CESCH PTIPN % 

H 

m 

0=» 

INPJT R- OUTPUT - STATION HEIGHT 

OAPTL 
11.2.1 1 

■■4 

OUTPUT * P APT t AL S OF K«Y.7 WITH PFSP'CT TO PHT. 
LAMBDA, ANQ H 

t hlhs ir, 
13.3.11 


IMPJT - STATION SQwj-ptcAL COORDINATE SIOMAS 

STAxy» 
0.1 > 

*>p 

INPJT -.TRACKING STATION EARTH c fX“D CARTESIAN 
COORDINATES 

THAT 

1 3 . 1 ) 

Oo 

OUTPUT - STATION EAST UNIT VEC T ne 

NMAT 

13.2 1 

V-> 

output - station n.'^m UNIT VECTOR 

7MAT 

13.1) 


OUTPUT - STATION LOCAL VERTICAL UNIT VECTOR 

THPf- tM 
I?.!) 


OUTPUT - SINE ANO COSINE O r THE DI ^^RFNC E SOTWFFN 
GmOFTIC AND GEOCENTRIC LATITUDES 

. >LAT 

Ul 

• • 

On 

INPJT t OUTPUT - TRACKING STATION L AT I TIDE 

PLON 

m 


IMPJT G OUTPUT - TRACKIN'; STATION LONGITUDE 

CALLS Ln S 

r 0J2NCF 

CAL. SOUANT (NS TA •NSTFST.-TSTIYJ - 

r »Y , i?.'!L 

> 

TYf»2 

orscpi d ticn * . \ 

'1ST A 

* 

! f *PjT - IVTCBMAI. NUV“-P O- STATIONS 

NSTTST 

f 

IMPJT - Nuvorp *]F AnjISTC) STATIONS 

. , J ■ ■ . \ * 
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# 


p.QSTIn . 

INPUT - 

SWITCH IS TPUC ON PI PST CALL Tfl SQlJANT FOR 
•A CASE 

SUHPPUT I Nfs i S EO 

CL C AP 

PL HO JT 

CCit'ACN OL K<s 

INTfiLK 


INPUT FILES 

NONE 


OUTPUT PTLFS 

NONE 



SU° PCUT ? Sr. SO ANT l t w, P A" Tl »C»L MS I G * ST A XY * • PH 4 T . NHA T * 7 A AT , THRO I M , 

• »L ist 4Nny 

IMPLICIT ^FSL«^ (A-H.C-7) 

ni VrNSi W H{ 1 ) i 3 A^T'_ ( 3, 3. 1 3.3*1 I • ST A * Y» C 3 .*t » .EHA T ( 1*1 * 

• . NHAT(3 , 1 ) ,7HAT< 3. i 1. THB3[m( s , ; ) ,BLAT( 1 ) ,PL ON* l | 
lN^P’“.tr-2 1ST A‘iO 

OI^SNSIVJ I ST ANT (1) 

LOGICAL r '-> S TiM 
RF*L °Aor 1_ . PLHS t 0 
■ *• OOU^L'.’ ^‘CISl.ON S«.\T 

CC^'^N/ IMT HL</ I G5C «1 « . AFSO.^L AT ,pP SO C ^ 1 > 

P£t«j^n 

*NTfJV S SJ ANT CNSTA. NST RST, F^STJM > . 

C CALCULATE CONSTANTS OS F I P*>T CALL 
IF( .NOT*«=OST 1M) ~jO TO 1C 
ESO= r LAT 

sscx^f; .o> e soi«: - . .. 

• FSOal -C T j-csr.i 

CALL CL r A?(STAXY7, F.NSTA1 

CALL CL "a- (rKT, *, NS T A1 • .. 

CALL Cl * A3 C'IHA T . Si Al 
CALL Cl “ V" < Z*-AT, N3T Al 
CALL Cl T W(T«P«I V, 4,HSTA) 

11 OO ICC T = !.NSTA 

1FC ISTASOf l ) .CO. **A ) C.O TO ICC ' 

|F IFR3T 1 *-i ) GO TO 2 3 

C CN ALL CALLS AFTC.1 FJSST, CONVERT ADJUSTED Y*Y,7 T f> OHj ,LAW3.1A,H 
CALL T’L nuT(STAXY7(I . I). PART It D.PLHStGl 1. 1.1 1 • R L A T ( tl* 

SL*1««I > ,HtI > 1 

C CALCUL A Tj- CIN- A NO COS INF PF GFPDE T I C LA T l T UOE AN*> EAST LONG I TUPE 
SLA TGsrPS 1 N ( »LAT ( n J 

SL Y OS 0=SL i Tr,*^ b 

• CLATG=r"..V? Y C! .CO.t-SLTCSOl 
S!NL r M?*>S f Nf^L^M! > ) 

COSLrN= 3C-3S (CLON (I > » . 

N = A-=/P,- }- T ( 1 .GOC - e SD* $LTGS" 1 • 

T'Cl =CLat:*.« (wd >4 -l) 

C CNF IPCT CA! C -L r l TL A T F STATION X.Y.Z 
‘ l*-*t .* o T .- - >ST !*4 J rp rn -.c 
ST ft XY/( . , T 1 S^CL * OSLOS 

STAXV7P. I |sfct«*;i.';.CN 
ST^XYZt 1. ! )«H.ATr,* (-i< Il4PSO:*3 I 


SOU A 

T ^ 
* N 

SOU A 

TJ 

SOU A 

7? 

SOU A 

7 1 

SPUA 

74 

SOU* 

7S 

<0114 

7F 

sou* 

77 

sou* 

78 

SOUA 

70 

SOU A 

«*- 

SOUA 

FI 

SOUA 

e? 

SOU A 

*3 

SOUA 

Pa 

SOUA 

P< 

SOUA 

s* 

SOUA 

?7 

SOUA 

P8 

SOUA 

PQ 

SOUA 

or 

SOUA 

«1 

SOUA 

o? 

SOUA 

0 3 

SOUA 

04 

SOUA 

O e 

SOIJA 

OF 

SOUA 

07 

SOUA 

o o 

SOIJA 

CO 

SOUA 

7 r 

SOU* 

1 C 1 

SOUA 

•02 

SOUA 

• ri 

SOUA 


SOUA 

* r S 

SOUA 

! CF 

SOUA 

1 f 7 

SOI** 

ft ;a 

SOUA 

’ C° 

SOUA 

4 1 F 

SOUA 

* * 1 
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c.l* riPST CA.. AMO STATION TO «»■ ADJUSTS. C 4 L 0 UHT£ PARTIAL* 
IP t I.GT *NSTGST ) GO TO AC •*. 

C I NTT P** O I A T I CONSTANTS 
GSOPHI= r So*Sl AT r,«* 2 

CJPH1=1 . 

CHCL=CL 4 TG*CCSLOK 

CP£L»CL ATG*RlMLflN . ' .-*• 

esfli °= rt tsoi 

i > ♦ c * 

C PAPTIAI“ OT <.Y.Z “ITH US-^rCT TO "Hi w . 

PATTLCI • I ) =-^l_ATr,*CC r 'L'">N* (H5-{ -so*** CLATG**? ) • 

' PftCTC {*♦?• 1 ) =S I NLON“ DAUTLU* 1. I l /CO SI. TJN 
PAPTLC . 5. n*CUAT3*( HI I IPHI1) 

C paptjais r»- x,y ,7 with ^ r s^tct in lampca 

OAPTL(?# 1 . n =-STA* YZ ( 2. I > 

* PARTU?. I )-STAXY7t l .1 ) ■/ * 

PAPTLCi * 3 • l 1=0 • 

c PAJ5TIALS O'- X.Y.? PGSPFCT ▼ n HP JC.HT 

paa tl<?. : ♦ r >=cpcu 

PAP TL I ? • ? * I ) =C °S L 
pattlc?. ■* . i i=slatg 

C SIN- A n'p r;iN: PF niFrr^MCf-- or r.roCCNT^IC r, G=oor.Tic LATt 

TM r TPK= (IAT( 1 ) — O AT AN ( ?T AX Y? ( 7t I i /PCL > 

. TMO^I M ( ■. , n = CS IM(T H c T W ) 

THPPfwCv. i jsp.CnS <TH=Tpr> > 

C FO»M UNIT V'/.ti^T, AT STATION 
C •••NOPTM Vf.CTOP 

nhat « i . f \ = -si ATr.*rnsi on ; 

NHAT(?,n=-SLATr,*S|NLCN .. % • 

MM ATI I,M= CLATG 

C •••local' Vt- >T I CAL 

ZH A T( 1 i I) = CL AT G-* CO S«. f) N 
-7HATI?, I ) = CLATr,*SI NLON 
THAT ( 3« I 1 =SLAT r > 

C ...* AST VGrT ■ V) .-.I. 

FHATI l. I M-SINLPN 
’ GHAT (2*1 1 “ OHSLON 

FHAT< 3. I »■= 0.^02 1 

13C CONT I rJU‘ 

■ PFT*J = N 
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J.6 


f zj^xajf/u> 
CeNVe&T 
$7- To 


30 


<Lsl£CULAr£ 

Staj£ an?) Cosxnc 
OF LArrrL &F 
FajJ LCN( } xrude 


F*/zs 

Cffts 


C^zcolatc 

Stats caj 

XYZ 
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Subroutine STAINF computes the statistical infor- 
mation derived from the measurement residuals. These 
statistics are primarily for printout purposes, being 
composed of those statistics in the residual summary 
printout. In addition, STAINF computes the weighted RMS 
considering the degrees of freedom removed due to the 

regression. 

* 

/ « - 

There are four entries; their function in the 
order of computation is to 


1) Initialize (zero all storage areas) , 

2) Sum weighted and unweighted measurements 
for each type of statistic, 

* 

3) Compute statistics for each station by 
measurement type, and 

4 ) Compute statistics for all weighted 

• measurements either in the arc or in 
* the entire run. 



NA«F 

FNTRV Frj I N r 

STAl^l 

STAirz 
ST A INF 




stain* 5 
PURPOSE '■'•••' 

IN IT I AL l? AT-PN 

TO CORRFC T S'" ATI ST ICAL I-'FO^maTJCW FOR ELECTRONIC 
*IA$ COW-»EHSAT I3N *- - 

TO COM PUT f ST ATf ST I C 4 L I N-OR r J ON 


CAUtlNG SfcRU^NCF CAUL S T A IF1 ( 4SJJM , *| SUM* VST A ,N SAT* CSUM* V! Sum, N3 A $F , 

L SUM ) 

SYMRCL Tf«E OCSCRIPTICN 

ASUP -7 INPUT - SUMMING ARRAYS Pl^ PAST] fiJL A*? STATIONS, 

CS,A ,N5 T A, NS AT) SATELLITES, AN’' M:4StP: 'TNT TyD;S 

HSU*' I INCUT - NU"S=fJ OP CFSIDUALS ASH WrtGMTrrj PF5IPUAL 

f 7*4 *NSf A, NSAT) RATIOS PHT PARTICULAR STATION^, 

-SATELLIT c S, ANT M=ASlp-«CNT TYO^S 


NST A 

1 

INPUT 

- NUMF»«~P or TpACKJNO STATIONS 

NSAT 

l 

INPUT 

- NUMSHP OF SAT=-LLITFS 

C5UM 

CO. 2 *NBASF , 1 ) 

INPUT 

- SCRATCH SO AC*! CQR SUMMING STATISTICAL 

I N*“ n°M AT I ON* 

% * 

MSU4’ ’ I 

13*2 •NfFIARn , 1 ) 

input 

- SCRATCH SPACE 5 OT SUMMING 1 STATISTICAL 
Infqpmat ion 

noas~ 

I 

INPUT 

~ NUHOFP 0 *^ FAST LINES A SS^C I A T^r> w t TH 




•*FASUS 5, * C NT S INVOLVING TWO STATIONS 

LSU* 

IN3ASF 

I 

• 1 » 

INCUT 

- SCRATCH S D ACF FOR SUMMING STATISTICAL 
INFORMATION 

CALLING 

SEQUENCE 

CALL S T A I F2 ( ISTAF,mTPF*5IGE,EAJA S*NF° A SS • NOS A T> 

. SYF^CL 

T top 

DESC° I P T IC1N 

ISTAC 

l 

INPUT 

- STATION N«l'«*»rt? US in In C U«P CNS AT^I NG FOR 
ELECTION IC p t AS 

«Tpr 

I 

INPUT 

A 

- ^FASURPM FNT Tyoc r n o 3 L E C T -? ON J C BIAS 
COmd^nsa t ion • 

S IC.f 


INPUT 

- Sir.MA f~nr CLFFTOONIC A I A S CfV'PFNSA T| ON 

TMM? 

*1 

INPUT 

~ ''IAS «f N I CM IS CO "RCNSA T.e f> 

n,;o;s^ 

t 

INCUT 

“ NU'-OFO- rjc- WEASUP-M^NTS J M )w-' 04^4 r 0 p 




-LFCTPfNIC BIAS C }Mcr VGA ■"! IN 


8_*.0 -48J_. 
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■NOS AT 

I 

INPJT 

- SATELLITE NU'^TO "ON ELECTRONIC 01 AS 



. 

COMPENSATION 

CALLING S 

rOJFNCF 

CALL 

ST A!NF< I T Y 3 F * ISTA ,MTY»= . SF S , n= S l 0 ,L 1 NNE P , 




ISAT * I S T A 3 > 

SVMPOL 

T T P E 

DCSC9IPTION . ; 

tTYPF 

I 

INPJT 

“ OETFOM IN c-s INITIALIZATION, ADDITION. 




STATION SUMMAMV, OR TOTAL SUMVA»Y. IS 
fcFOurrsTE u 

1ST A 

I 

INPUT 

- INTERNAL STATION NUM3FP 

MTYPF 

J 

INKJT 

- YEA^inFVPST TYOE 

sic 

T 

INPUT 

■ / ■ * 

- SIGMA 

FFS I 0 . 


INPUT 

- RESIDUA. 

L1NNEP 

- 

IN*\JT 

- ,T»UE* - LAST INNTO ITERATION 

*. ISAT 

I 

INPJT 

- satellite NUMOFP 

ISTA2 

I 

INPJT 

- SFCONO STATI^nt M~ a S UP - ME N T INVOLVE 




TWO ST AT IONS 


sun POUT !N€® jsed 
.COMMON 0LCC<3 
INPUT r ILTS 
OUTPUT r ILF* 
RFFCPr NCf:S 


CLCA3 

CSTAT 


NONE 

NONE 

• GFOOYN 
VOLUME l 


OMV.M?* 


TEFCP rnrt ->N» 
EnCUMENTATf MM 


5* ST AT 
CSTIN- 


SYSTrMS 
- GE OrYN 



SUNOOtlT INK STAIF J( A3Uw.NSUv.NST A.NSftT* ESIJM,msum*NSASE,LSUM| 

•INTF'IF*-' * ? I SAT 

MvrNRI/V AS«JM{C .4.NSTA.NSAT ),NSUV( *« . a , NST A ,NS AT I , 

• CS*I»H ASF* 1 ) * V P .U" { "* » 3. NASHS', ; ) , _ S»IM( N” ASE , * J 

CO»*MON/OST I NT/ V= AS\3 < 4 J , NO - »S<4 J . on ^AN(- ) , 0 »S3 ( 4 ) l uNC'( 4 ) , 

• VTAS*r I 4 ) . w T *■* r A N* { 1 ).WMSMT:( 4 > . ) . TW; -*s( »: | . N^TYPE { 2 

• OSUPt S • 12 F.’^MSaLL £ ? . ), Nn Al ( T . >|Ovt JS4 S F 

COPMON/-ST AT/WFS 10 i. 3 IGl.NvTDT ,W^S!JVT 

NsMST 4*'H4T 
. A^rr> ,J \ 
i:. r i-ru. 

O c T|P»i 

C Cn'*oe*,r i7 - .--IP CI.ECT TONIC -T IAS pev»M V * u 

‘^ :Tf ' v S* A I F2< J ST A” . vt r>- , s I ~,F .? ^ J AS.M "-».\S S.Nl S4 T) . 
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ST A f * Cfl 
ST A J SO 
ST AT 1 G r 
STAI 'Cl 
ST A l \C ? 
7 r 1 .STAX » r ? 
ST A J 144 
stai *C e 
STAX ’CA 
ST A I V? 7 
« t 4J «-p 
ST A J *0C 

st * i : j c 

ST A I 1 1 t 
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1SAT=*> 

5t3 tS&Trl SAT4-1 

OO 6CO I =i *4 

WNC=M^U‘( ’•I.JSTAE.ISAT) 

IPCMN> ,, Tvnf!) *•; c. sas .sc c 

S? 5 A«U«< 1 . I • l ST AZ * 1 GAT J = A-Ijv ( ! • t • t STA”, I SAT | 

ASt)M(3.f « ISTAE, 1SAT >= A>U*t 3, I. I^TiP, ISAT 1 

« * -PLQAT'J N ; n A'*)»r 

ASU^C?, I * I^T^. I SA T ) = w • 

RAT IOsl M AS/SIGE 

R2N s^LC^T < ♦iFCA^S >*r>AT JO 

ASU M <2. I* 1ST A?Z* I SAT > = **‘I. I STAC, * SAT I-F2V 

AT IC 

A$UM(4* I « I5TA:, I?AT) = A-;tJM(A. I, JS^AS, |SAT)-C2»4 


ST AT 
ST A 1 
ST AI 
STAt 
ST A I 
STAt 
STAT 
ST A I 
STM 
STAt 
ST A | 
ST A t 
STAt 
ST 41 
S*A! 


M2 
' 13 

*14 
> IS 
* 1* 

* * 7 
MS . 

! I 4 

* PC 

* 2 ! 

* ?2 

* 23 
i pa 

* ?S 

* 2ft 


WT5*IMTs WT SUMT-O^N 


ST A I 

* 27 

ASUMC.S. 1 . I ST AS, ISAT 1 = C. 

• ■% • . 

STAI 

*2* 

ft*iC CONTINM- 


stai 

• 2 o 

I^c ISAT ,LT .NCS AT l GD TO S*C 


STAI 

? ?(• 

RETURN 


STAt 

*21 

F.H t kY S r A I NFC l TYPE . I 5 TA,MTYr»F. < I G . or * t O . L T NM5 R , I SAT , IOTA ?) 

stai 

*. 32 

LOGICAL -INNER 


STAf 

* 33 

i sxr.issis 


STA? 

1 24 

RCST0i = 7-TStD 


. stai 

■ 3S 

C CFTC^^INT !- INITIALIZATION, ADDITION* STATION 

StlVMAPV* OB TOTAL 

ST#, | 

1 Tft 

C SUWAPY 


STA I 

137 

GO r« f 1 , » 0» t30i ,40t * . ITVOjr 


STAY 

i 7* 

^ .rnn CT 2^Awf J, 


ST* ! 

" 3*? 

» call CL lA^ 1 4 SU '* » "12 * N > 


STAI 

* 4Q 

CALL CL"AO(nS<JM, T2.N) 

% 

STAI 

! 41 

CALL Cl,* 7 A* (TVORMS# M6 • M 


STAI 

lap 

ir<L^AS".u?:-- ) co n i: 


stai 

* 43 

CALL CL* A»CCSUv # :5,_HASr»N» 


STAI 

* 44 

CALL CL = VMMS'JM.ft.LOASft** > 


ST A f 

* 4? 

CALL CUE A4CLSUV.L0ASE Oil 


STAI 

* Aft 

ic k«tqt=: 


STAt 

* 4 ▼ 

•TSU**T = ; . 


stai 

*. 4P 

IFt ISTA.Nr .0 1 JFTUWN 


. STAI 

* AO 

K M A LL = ? 


STAT 

1 ST 

MTSUMAs;. 


STAt* 

1 SI 

NOOEGFsi 

• * .' V . 

STAI 

* 53 

CALL CL*" AO (OMS ALL* 13 . 21 


STAI 

* S3 

‘RETURN 


STAI 

3 S 4 

c SU M STATISTIC 3 


stai 

* SS 

101 l>( mtyp-.GT. 14 ) CD TO 201 

■ . ' . 

stai 

* ■Sft 

c TTPFS ! - l * 


stai 

* S7 

00 PCO 1=1.4 


STAI 

• 

««N0*8USU*M ■*, I .1 ST A. is ATI 


STAI 

* so 

IF< HNO.GT . 0 > TF.I ysfi-^TYor } 2:?.12S,t»CC 


STAI 

* ST: 

• NSltVf ?, t • I ST A^ IS AT l^Tvn; 

• 

STAI 

“At 

125 CALL SVST AT< ASU-< (1 .1 . ISTA. ISAT ),NSl|M( J,! 

ST A * I SA T > 1 

STAI 

* ft? 

OfhPN 


STAI 

•ft** 

200 C'DNT I VI 6 


STAT 

• AO. 

fcFTUt-N • 


S T A I 

1ft 5 

201 t ft { MfvPE.r.T . < ft > ro rn ?i-3 


STAI 

* ft ft 

c TYPES 15-76 

*t * 

STAf 

* ft 7 


8.0-433 
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NTY P^sMf <f d«- 14 

CAtL SM^T AT( FSUMfl ,NT YOE ».NnTVDC { j,mtYO£ U 

BETU^N ; . - . 

C TY°r s ;? - ’I 

22-.' INr*ClSAT-n*LSTA4!STA 
on ,J-1 .LPA^E 

<f.TA»Lf.J-'t J. INO> 

IF IKSTA.GT .C ) ir «ST A-ISTA“>) 2 75.22-". 

L<u *U* I*’*' >=.IST A2 . . 

£25 Oil ?' r ' f-1.2 

PM:= M SU 4 ( 3 • I % J • I NO I 

I «- ( vnO • '■(T , C 1 I c ( vMfj-MTvnE > 270 *250*270 
. MSUMO. I * J * ir:0)tsyrv3E 

*»5C CALL SV>T AT ( CSUM (1 • t • J* IND ) * «SIH( 1 * I • J. TNO ) ) 
prriKN ’ 

2to T I Nil'' • 

£7* CO f --T I nu~ 

9FTIPN , . • 

C ST AT l nr s»iM-4 Any 

Kl irii' T A,i.o,;i f.') rn 35) ’ 

IFC IST‘A». GT *c ) no T-J 3*5 
C SINGLE ST A T I ’.i N MgASU^^'NT-i 

CAt L P*J-*C •*£*( K .SUM < | ,J « 1ST A « IS AT ) * A SUM Cl*l *1 ST A * ISA T I • A) 
MfTlJHN 

C TWO STATION *e ASU3 F mtnTS 
32* INO-»( IS AT- 1 | cl ST A* 1ST A 

*in ’sc . 

WCT * = LS- •'* i J : !*‘! r * } 

IF (KSTA.N*-: . 1ST A2 ) GO TO 25 r * 

'call emr **P( MfjijM (i , 1 , j, |*jnj *CSU M I 1. I • J *t NO 1 ♦ 21 

M?2S< 3) =0 . 

PST UPN 
3SC CONTINUF 
N -VSIl ) 

RFTURN ... 

C W^ASURF M“NT S NJT INVOLVING STATIONS 
351 00 AO C 1-1*12 
. J = T -f J 4 
K=NPTvu- { 1 , J ) 

I«?(k.fo.:o gc to 400 

XN=K 

|FCK.LT.;?> GO TO 2 3 5 

*hSO M tS* 1 1 = C R«U*M ."5*11 — F'L'M ( i« IJ e * 2//N) /•ISW'.’ (5*11 
HSHWCS, I ) = ( 2 **n?UM( 5 , I>-1 * » /SO^tc ( xn-2. ) /< .11 

esi» 4(3*1 ) =SO--T 3 « I 1/IXN-l • 1 ) 

■*?& PsiT^cr. ! i = 2 Si»-j 1 1 *i )/xn 

k*NCTvp‘I ?.*J> . . : 

lFtn.Po,:i r,n 4C3 

KNsK 

XY C U *«<5 ( I J - U ’4 ( A * 1 ) 

* IFOt.LT . : ; ) Gil TO 335 

*««i 9 w(/ , i » a chsu * i - n-r'iiwp, i > « 'Vtn» / < r .n" ( . i > 

• i s ( 5 •’» ‘ » 1 1 - ; . i / si - t< i n-M/f»s«;-*.il 

HS1IW a , [ > sSl T t'T'J*.* f - * I >/ I YN-I . ) I 
nsi!V( 7 . , i } s-TSUM < 2 . I »/ K N 

*0 ; m* r i mu- 


st* f tap 

STAt IfQ 
STAI '7* 

’ STAf '71 
STAf * 7 2 
STAI ’V* 
STAf ' i& 
STAf »7S 
STAI * -** 
STAI »77 
STAI TY« 
STAf 

STAI * Pf- 
STAI ! PI * 
STAI ?*? 
STAI ? P? 

. STAf • «4 
ST A I 'PS 
STAI ‘IFF 
stai ?p? 
STAJ 
STAI 

STAI '.O'* 
STAI '«! 
STAI !“ 
STAI !®3 
STAf 'MA 
ST .*■! *'■* 

STAI *ca 
STAI «C7 
STAI ' op 
STAI 'Co 
ctai rc<- 
STAI 5CI 

stai -rs 
stai r-c? 

STAX rC-4 
stai **r F 

STAI ?0F 
STAI ~C? 
STAI ?r P 
STAf ?C° 
STAI 210 
STAI -«M 
STAI 712 
1 STAI "^13 
STAt ^14 
STAI 

STAI *>1F 
STA! -it 
STAI 'P 
STAT *.p 
stai r ?■; 

CT4I -?! 
STAT ??2 
STAt ’23 
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c 


RETURN - * ' STAI 

total SUMMARY ... -• - ■ STA! ?2*» 

aoi r^A.n.c) go to stai ?2 f 

MTVPE=N«TOT '* ST A l ? 2* 

fr< .Nf.T.L I NNFR) CD TO 4 1C' . STAI ??** 

NMA LL » N A L L ♦ NM T O T • ’ STAt -2° 


. NO^e^PsWJOSC.P+’I^TA 
NT«**JMA= XTSDMT 

A1C S|«*SO*-T ( -«»TSUMT^FLCAT C m .MTnT-I5TA-ll ) . • - 

■ W 1 * 1.30 

|FCLINN‘P> N.l* LL ( I > = N 0 *LL ( l l+NOTYPM r * l I 
ir<Cl NN:-! J RMS ALL( 1 > sP'*< 5 ALL( 1 > ♦ TYPFWSC I) 

AS** IF|NOTV*»r ( I ) .NT, C) TYPPMS (.1) = S Oft T < TY^M^f I ) /PLOAT( NOT YP= ( ? « I } ) > 
RETURN 

4AC NOO e riPs'l DDTCr+MTYPR . " 

YTYP P sTfM i*LL .✓ 

Slf.sS(j:-' T t V TSIJMA/FLOA T (*J LI. - NO OF ) ) ’ 

DO 4 70 IM.3C 

■A 7 C_ 4 FC-NOALCf I Tyn qsM-H* T <Ous/LU I I -/=LO A T< NOALM Till 

RETURN 
TNO 

DIVCNSIDN NOTYP': <2 ) , SU‘M * l 
1 CO* AT /QCS! O* S !C», NM T OT, * T qjMT 

1F(N0TY->^< t ) .CO.0) SU«(7)=r<-r,i D 

NO T YPf f * ) = NO TY °K (1)4-1 
SUV(l 1*«U*M 1 M-RFStO 
SU?-* O » “ > JM ( 1 > *■ * £ S I O* * 2 
Suvfsj* »J*4<ro + (R“*S ID-S*JM< 7 1)**2 

S«J*{7 )=-? 10 ^ 

JRCSIG.." . 0 . ) RETURN 

R=c *=S!P'S l C> * • 

82=c**? • 

• NMTCT^N 4 TOT+l 
WT 5 *IMT=s- r^jMT + .i? 

JS« NOTY->r < 2 ) .EO. t) fiUV(F.J=y 

-. NOTYPcC) = NOTypp{ 2 M-l ' * 

S*>*-*< 2)==? JV C ? )♦=» 

SU“< 4 lsqjy( 4 H !72 ' 

“ SU«t* 1 =- > J*MS )♦ CP-SUM ( e> ) 

SUM (^1=3 

return • - ■ 

end . 


STAt ?3f 
ST A I *?31 

stai : 3? 
STAI r J? 
stai *3* 
stai ?3F 

ST A I r?6 

stai r3*» 
STAI ?3P 
STAY 53° 
STAf ?A0 
STAI ?A| 
■STAI* ?6- 

stai r A ? 

STAI ?U 
STAT r A *> 
STAI 

STA! N7 
STAI 

STAI 340 
STAt « *.r 
STAI ??! 
STAT ?S? 
STAI ?£ t 
STAT ?5t 
STAI *50 
STAT ’SF 
STAI ^7 
STAI ?S« 
STM -?«;o 
STAI J* A A 
STAI -161 
STAI '’AS 
STAI ? A T 
STAt *■* A A 
STAI *AS 
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* . 

DESCRIPTION 

STAINP reads tracking station positions from the 
GEODYN Input Cards. STAINP can read tracking stations in 
geodetic (latitude, longitude, height) or Cartesian \ * 

coordinates. 

STAINP assumes the station position to be in 
Cartesian coordinates. If, however, the station vector 
is .considerably smaller in magnitude than ’one Earth radius 
$TAINP considers the station position to be given in 
geodetic coordinates. 

STAINP will not accept duplicate stations and ■ 
prints an error message upon any such encounters.. 

This subroutine also loads the variable storage 
-station arrays selecting station coordinates from the 
input values supplimented by station coordinate values 
stored, in the block data subroutine STAPOS. 




s v; 

0# 
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•mme stainp - 

PURPOSE TO READ GEODYN TRACKING STATIONS AND CONVERT FROM 

CARTESIAN COORDINATES WHENEVER NECESSARY 

CAU-ING SEOJENCE CALL S T A IN° ( N STA . KST ANO * ST ANAM , S TALAT , STALON • 

HEIGHT, NSTARD.NSTEST.ESTANO) . 


SYMBOL 

TYPE 

DESCRIPTION 

NSTA 

I 

INPUT - NUMRFR OF STATIONS USED 

KST ANO 
(1) 

1*2 

OUTPUT 

- STATION NUMBER S 

ST ANAM 
(1) 

OP 

OUTPUT 

- STATION NAVES * : 

STALAT 

m 

DO . 

OUTPUT 

- STATION LATITUDES 

stalcn 

(11 

DP . 

OUTPUT 

- ST AT I CN LONGITUDES 

HEIGHT 

-41) 

Do 

OUTPUT 

- STATION HEIGHTS 

NSTARD 

I 

INPJT - 

NUMBER 3F STATIONS THAT WERE READ FROM 
CARDS - - 

NSTCST 

I 

INPUT - 

NUMBER OF STATIONS REQUESTING ADJUSTMENT 

ESTANQ , 

1*2 

OUTPUT 

- MASTER STATION NUMBERS FOR. ESTIMATED 
STATIONS 

SUBROUT INES 

USED 

NUMBR2 

ERROR DARCTN 

COMMON SLOCKS 

CEPHEM 

TPEBLK 

STA MJM STAPOS CONSTS JNTPLK 

INPUT FILES 


INTP - 

GEODYN INPUT CARDS 

CUTPUT FILES 

NONE 



REFERENCES •GEODYN SYSTEMS DESCRIPTION* 

VOLUME 1 - GEODYN DOCUMENTATION 

.* - . - - .• . 

• - -A 


SUPROUT INE ST A I NP( NS T A, KST ANO, ST AN AM , STA L A T. ST #LDN. H- | GH T. 

» NSTA3D, NS TEST ,EST A .V? ) 

IMPLICIT PEAL*3 (A-H.C-’I 

DIMENSION KST a NO ( 1 ) , STAN AM ( I ), ST ALAT ( l >, STAUNCH .HEIGHT! 1 > , 
» ESTANO( J 1 ,NAMf9 t 9 J \ 


8.0-487 




STAIN P 
Page 3 of 6 
October 1972 


IOGICALM NAMES « NAMET 

- INTEGER* 2 KSTANO, I ST ANO.STANOS , E5TANO , l STARD.E STANO 
.. , INTEGER OUTP 

DOUCLE "RF.CISICN NAM Ef *L 

CONVON/CEDHEM/ON AM F( 3P1 ). tSTATOI 381 >,ESTAN0(38| ) • ISTANOf 356) 
*• COMMCN/ST AKU*-*/SNAME( 2 S? )',ST ANQS( 2P0>«Nr»STaR 
COMPQN/ST aPOS/RLAT (280) . RLON ( 2 ° 0 ) . H ( 2 80 ) 

COMVON/CONSTS/P r .IW3P UCRAD.PSFC • ' ' 

COMMON/ INT BLV/THCnr( 4 1, AF * AESO , FLAT*FS032{ 59) 

■ COM W ON / T 3 c >2LK/ I NTP , O U TP . I DU M u o 

DATA DAT A/6I-CAT A / . S T 4 PO S/ 6 HS TAPQS/ .* 

OAT A ALTMTR/eHALTMTR/ 

DATA CELT A/1 *0 0 — 3/ * 

' EQUIVAl FNC6 (JST AND, OST AND), ( NAME. NAM E8( 1) ) • ( N AME7.N AME fl ( 7 > ) 
!F< NSTA.LF. .0 ) RETURN 
on 10 1 = 1 . NST A - 

to KSTANOt I 1 =0 « • 

!F<NSTARD.LE .0 ) GO TO 10O0 
REtflNO I NT P 
READCINTP.SOCO ) 

ESO=(J .CDO-FLAT ) **2 
ESQ=1 .ODC -ESC 
20 READUNTD, 10C05) NAME 
* I F C NAME > ME • STAPOS) GO TO 20 
C READ STATION POSITION CAPCS. 

100 REAOC INTP. 10C05,FND=90?> NAME* JST ANO • P *L *HT« NA MET 

!F(NivF.Po.r*m c-n to iooo 

JCUsNiiunooi jcTAwo. ijt win. m«t»; 

C SKIP CARO IF STATION NOT USED " - 

IFC ISN.LE*01 GO TO IOC . 

IF(KSTANO( ISM .LE.C) GO TO ISO 

CALL ERROROiDST ANO» i 

GO TO 100 

C CHECK COORDINATE SYSTEMS 
150 XYSG=P*=’ + L*L 

RSO=XYSQ+HT*HT 

IF( RSO.LT • 3.EO 13 ) GO TO 400 

C CONVERT CARTESIAN TO SPMEPICAL COORDINATES 
T=ESO*HT 
C •••HEIGHT 

DO 200 J= l • 25 
■ # ■ *T=HT+T 

HI = OS OR T < XYSQ+ZT** 2) : ’ 

- SINPHI = zt/hi • •••'; 

ESOSP=ESO*S INPHl • 

H2=AE/DSORT( l.C DO-ESQ SP*S INPHI ) 

■ Tt - F2AESOS P 

IFCOAOSIT 1-T J.LT .DELTA) GO TO 300 
200 T=T1 ; 

500 HT=H1-H2 * 

RTX YSO=D3 ORT’(XYSQ) 

HSO=OATAN2 <ZT. RTXYSQ ) 

C •• .LONG irons 

L = C ARCTNfL .P) -- 

c *• *L AT I TUDE 

.p=Rsa 


STAI 

56 

ST A I 

57 

STAI 

*6 

STAI 

F 9 

STAI 

A 0 

STAI 

61 

STAI 

/?- 

STAI i: 

63 

STAI 

6A 

STAt 

f s 

ST»1 

(f 6 

STAt 

67 

STAI 

66 

STAI 

69 

STAI 

70 

STAI 

71 

STAI 

72 

STAI 

73 

STAI 

74 

• STAI 

7 5 

STAI 

76 

STAI 

77 

STAI 

76 

STAI 

7Q 

STAI 

60 

ST A * 

51 

STAT 

o *» 



*J> • ft 

«■ j 

STAI 

64 

STAI 

5? 

• STAI 

66 

STAI 

87 

„ STAI 

*6 

STAI 

69 

STAI 

on 

STAI 

Ol 

STAI 

o 2 

STAI 

93 

STAI 

94 

STAI 

05 

STAI 

96 

STAI 

97 

STAI 

06 

STAI 

90 

STAI 

ICO 

STAI 

'Cl 

-■ STAI 

10? 

STAI 

103 

STAI 

* 0 4 

STAI 

10 s 

STAI 

1 C 5 

STA! 

* 07 

STAt 


STAI 

1 Co 

STAI 

1 10 

STAI 

1 1 1 


8 . 0 - 488 1 
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CO TO 530 ■ 

400 JLATD=P«J .CO-4 '• - v . 

psp-JLATf>* 1 ■ 00*4 
JLATM=P*1 «0D-2 
TSL AT=P- JLATW* l .00 + 2 

jlcnd=l*i .oo-A • • 

L.=L-JLONf>* I .00 + 4 ’ . ’ 

Jl_OKM=L* 1 . 0 0 -2 . 

TSLCN=L- JLCn u * 1 • CD 2 

PwCOFLOAT ( JLAT D) +OFLO AT C JL ATM| /6.0ni+TSLAT/3#6O3» AO 

L=< C^LOAT { JLCND) +DFLO AT < JLCMM) /6. COl + TSL0N/3. ED3 ) *OR AO 
C STOP*; STATION POSITION IN VARIABLE STORAGE ARRAYS 

SCO KST ANO( ISNJ-JSTASO . 

STAN4m( 15-n )sNAH£ 

STALATI ISN >=R 

STALON{ ISN| = L ' , 

HEIGHT! ISN ) = HT 

IFC 1SN.LE.NSTEST ) EST AND! I SN > = F STANO! I SN 1 
GO to lco 

90 C CALL ERROR (6.DST ANO) • 

RETURN *. 

1000 00 20 03 I = I • NST A 

IFtKSTANOI I ) .NE .0) GO TO 2000 
JST AN0 = 1ST ANC( I) 

ISN=NUM^R2 ( JST ANO* ST AKOS.NOSTOR I 
IP(iSN.CT.O) GO TO 1 5 CO 

— 4F-C JSTAN0.NE.-4 J CO TO 1200 . * 

fCST ANOi i » - -4 ” . 

■ STANAMC I ) SALTMTR . 

_.st alat ( i ) = c .ooo 

ST AVON! n =0 .000 •' * 

HEIGHT! I ) =0.000 ' j . 

CO TO 2030 

1200 CALL EPRORO.DST ANO J 
RETURN 

C IF STATION FROM ELOCK DATA THEN TRANSFER TO VARIABLE STORAGE ARRAYS 
1500 KST ANO! T) =JSTANO . , . 

-STANAVC I) =SNAME( ISN) 

STALATC I) = RL AT ( ISN ) .. 

STALONt l I=PLCN( ISN) 

HE I GHT( I) =H( ISN) ' 

I F ( l.LE.NSTEST 1 ESTANOI n=ESTAN0{ I ) 

2 OC 0 CONTINUE ; 

C ZERO COORDINATES FOR ALT t METER 
RETURN 

_ 5.000 FORMAT! 1 K/1X/1X ) ; . ' . *; V 

10C05 FORMAT! AS. 14.3015*8. A J1 ' 

’ END . f . . 


stat 

! 1 2 

ST A I 

M3 

ST A I 

114 

STAI 

! 15 

stai 

115 

STAI 

TIT 

stai ; 


STAI 

t to 

STAI 

1 20 

STAI 

121 

STAI 

172 

STAI 

<?3 

STAI 

! 24 

STAI 

< 25 

stai 

<.?.6 

STAI 

1£T 

ST At 

« 2 8 

STAI 

•20 

STAI 

130 

STAI 

131 

stai 

132 

stai 

133 

STAI 

134 

STAI 

J 35 

STAI 

13 * 

ST A! 

<37 

STAI 

1 7 A 

STAI 

1 

STA! 

• ac 

STAI 

14 \ 

STAI 

la? 

STAI 

143 

STAt 

<4 4 

STAI 

<45 

STAI 

<46 

STA I 

147 

STAI 

1 4« 

STAI 

149 

STAI 

150 

- STAI 

151 

STAI 

15? 

STAI 

153 

STAI 

* 54 

STAI 

1*5 

STAI 

1 *>6 

STAI 

157 

STAI 

155 

STAI 

15R 
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FtOATJAJQ 

Pox+jr^V'^ee^s 



5tO 


— =— A 

:r S?7j-' 
rrzotJ 
£ FO& 
ecxM 
'CD / 


sro/ze 

&T*TXCSJ 

/>£>SJ-TXCSJS 




r > 


Verv&sJ 


r >, 


ST'772'oaJ /=/Coa^ 

s6t.cc/c 3>rjrs) — 

7&smsee/C tv 

l//lKX/?s3<C<? 

e /?/2/yi vs 




f&r/JT A /0 \ > 


~b/)TA C/fsCj) / 


\ /HfSX'W-t / 

zemo 

1 

CccejctJrtrz-s fcA 


zero/W 


£erujC/J 
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tfAMC 

PURPOSE - 

CALLING SEQUENCE 
SYMBOL. TTPG 

SUM * R 

c ei 

NOTYPC I 

C2) 

SUBROUTINES US^D 
COMMON BLOCKS 
INPUT p 1 L£TS 
OUTPUT FILES 

REFERENCES 

1 


• SMSTAT ' 

TO SUM STATISTICS . .. 

CALL SMSTAT t SUM, NOT YPt) 

PESCRI PTJ ON 

INPUT £ OUTPUT - ARRAY THAT INFORMATION GETS 

SUMMED INTO 

I NPUT £ OUTPUT - ARRAY CONTAINING NUMBER OP 

MEASUREMENTS 

NONE 

C ST AT . . * . . 

* 

NONE 
N ONE 

•GEOPYN SYSTEMS DESCRIPTION* 

VOLUME l - GGODYN OOCU MENT AT I ON 


SUBROUTINE SMSTAT! SUM «NOTYPE> 
D!«r;K5!CN NCTYrt(?.l *5LM8> 

CO f *»- 3N/C S~A T /?»' SIS ♦SIG .NMTCT «'*TSUVT 
IM NCT YP..( l ) . “O. v > SLM( 71 sPLSIC 
NOTIP JU MNCnr.,(i)+l 
SUM ( 1 ) SSL4< 1 t *-l SIC 
SUMC 2)« 3LM( 3) ♦RtSIC ♦*?. 

SUM ! 5) = SO-1< 5) + ( SIC- SUV (7» > * *2 
- SUM ( 7) s^'SIC 

tF( SIG.L". 0. I RTTCRK 
C=PI .SIC/3IG 
= P ♦* 2 

NKTG1«NMT.1TM 

VTSLMT =y.IaUKT + P 2 

IFtNOTTP .1 2 ) .ro.O) 5UV(B>== 

NOTYP;*: ( 2 )=NCT YP*.;< 2 J +1 
• SUM! 2 ) =. 5 LMC 2 ) + *•' 

SUM ( A) -SL»M( A) +L 2 

SUM! 6J =SLM! 6) ♦! R- SLM( B> > ♦ *2 

sum( e> =5 

«u:tlpn . 

» 


STAI 

stai 

STAI 

stai 

stai 

STAI 

stai • 

STAI 

STAI 

ST&I 

STAI 

ST. A I 

STAI 

STAI 

STAI 

STAI 

STA I - 

STAI 

STAI 

STAI 

STAI 

STAI 


^JL* 0-492 


273 

27ft 

£75 

£ 7 t 

277 

276 

275 

260 

231 

262 

253 

2 PA 

£55 

236 

267 

2 ae 

£35 

250 

£51 

292 

293 
25A 
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39d BSOM< 2 ,1 ) --6 $UM!*2 . I I 

. . 400 CON TIN US . .. 

. return 

C TOTAL SUMMARY 

40'| IFI | STA.EO. 01 GO TO 460 . - 

Mtype=NMTOT 

XF ( •NO T. Lt NjrtE RT GO TO 41 O ' 

WrtALt = NMALL ♦NMTOT / ^ 

MODEGF ^NODtTCP *f ST A 

IfTSUH* =WTSUMA+ WtSUfU ... .. 

■410 S1C-SQR.TC WTSUMT /T LOAT(NMrOT-I$TA-t I ) 

DO 450 t=l t 30 

tF( U Inner.) noallc i ) -mcali ( 1 ) *-moty < 2 • 1 ) 

|r<LINNElR> RMSALL < I > -*fASALL< ( ) ♦ TYPHUS < I > 

450 IFtWOTYPETM .1 >.Ne.O> 1 Y PRMS t I ) =S GR T { TY p RMS ( I > / F LO AT <NOT Y P ETf 2. 1) ) > 
RETURN 

. 46t> NOOCGF • * 

*tyPe=nmall 

SIG = SQRT< WT SUWfl /F LOATt r4/^ALL - f^QOC CF ) ) • - "* 

00 470 I -t .JO 

r" *7C ire f(OALL( I ) *NE, O) T YPRMS 1 1 ) =SQRT <f> ALL U )/ FLO AT < NOALL < I M » 

” RE T CRM 
Eflt> 


f.T/1 i.:5 
STM ?:•: 

S-Tf.I £.?4 

f. TAT r 2 

FT". *• *■ 

r 7? : : ■■ ? 
ru *■ 

5 T* * , ;_S 
«TM #iv 
STM 

ST- I £*2 
£ TA l T: i ? 
«T4| c .* A 
C7AI iiS 
CTAI < .< 

£• TA. I .*•' J 7 
ST>! 2M 

stm 

f TA I 
STAI 
STM £42 
f TA I 2 4? 
STAI 





ht M 
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KAMC 

PURPOSE 

CCMMON BLOCKS 


STAPOS 

CLOCK DATA STOPAGE OF STATION POSITIONS 
UNITS F CP COOP 01 NATES 
LAT - RAO IANS 
LON - RADIANS 

H - METERS . ' . ' ‘ ‘ 

STAPOS STANUM 




BLOCK DATA 

DOUBLE PRECISION L AT . LON, HT . NA ME 
I NT E GFR* 2 MJV3ER 

COM VON/ ST APas/LAT(280 ). LON( 2 60 ) « HT( 28 0 ) 
COWCN/ST ASU^/NAVE f 2 6 0) . NUMBER C 2PC)»NST0R 
DATA NSTOR/264/ 

DOU9LE PRECISION NAME 1 
DIMENSION NAW£ 1(114) 

EQUIVALENCE (NAME ( 1J,NAME 1UI) 

OAT A NAME 1/ 


• 7HMILT .7HG8M3 .7HRDA3 

• 7HMAD3 *7HCPH3 .7HGWM3 

• 7M5VMT ,7mtcxj ,7H/:Tri 

• 

• 7FMRT0 • 7HKQUR0U « 7 HRPfl I NT 

• 7HSNT AG6 .7HNEWPL6 «7HCOLEGE 

• 7NMOJAVE .7HOO-.EPA .7MULASK5 

• 7H100M£R • 7H 1 OUI TO * 7 H i L t m a° 

• TFlNErf^L .7H1CCLFG .7H1GFOPK 

• 7H1 QPORL « 7H 1 R OS m a ,7H1TAN4N 
« TH5NTAGRS. 7HAL ASK.PS .7HCAPVON 

• 7HALASKRV.7HCARV0NV *7HANT I GA 

• 7mE0FRD *7HS£MMFS *7HSWANIS 

• THGRAN^K *7HTWINH< *7 H D OT HGP 

• 7HKINDLY *7HE0WADS • 7 HHlJN TER 

• 7HCHYWYM ,7HETPGR6 ,7HETPCA< 

• 7NETRGRT *?HETFMRT 9 ?HETRG3ft 

• 7H4SS127 *7HwSPI24 . 7HW5T125 

• 7N4TRPPQ .7Hwrr,VAN • 7 HE GL I NF 
- DOUBLE PRECISION name 2 


• 7HANG3 ,7HCY13 # 7H AC N3 

• 7HHSK P »7HHAW3 • 7HGO S? • 
*? wo !0D iTMECMD ( 7H VE NO » 

. T a *■« TuOr-ira** -r, 

» • 

• 7HFTM YR fy ,7mq UIT 06 ,7HLIM4P6 . 
.7HGPOP<S .7MWNKFL6 ♦ 7* J0RUR6 . 
.7H1HPQIN .7H1PTMYR « 7H M A OG A 6 ♦ 
•7H1SATAG .7H1MQJAV »7HIJ03UP , 
*7H1VNK^L «7H1ULA<K «7^lQOSMN « 

• • 7HORDR A 6 • 7H« A OG A R S « 7MH O SP A NS • 
S. 7HM40G4PV, 7HPO SR A NV « 7M <JN T A G R V * 

• 7HGRNVLE .7HGPVILL t 7HUSAF AC » 
•7HGR0TPK «7MCUPACn *7H T PNOAD « 
.7HATMNGR . 7MT0RPSP • 7HC HOFU J , 

• 7HJUPD 4P ♦7HARERDN t7HHOM"ST , 

• 7HETRPRE *7H C T0PAT * 7HF T RA N T , 
.7HWSH122 *7mwSC113 .7HWSH123 , 

• 7HWTPPD 5 • 7HWTR TP 2 • 7HWT RTR 1 , 

•7HEGLINF .7HOM9SN5 ,7H°MRSN6 / 


DIMENSION NAME 2(114) 


EQUIVALENCE (NAME U IS). NAME 2(1)) 
DATA NAVC 2 / 


• . 7HPMDM-?! • 7HPy"M P 2 • 7 HOMR P Ml 

• 7HPVHSN4 , 7HPMCOV3 ,7hpm'?pma 

• 7HNELYNV ,* 7HNW W 2A , 7FN;wt-M2fl 

• 7N.NTANAN *7HwTR<AU »7HNGERn5 

• ▼H4DQR3« ,7Hf*ArAm • 7 HR A r A f>5 

• 7MHEWN0M , 7HCtl:CAL *7HL 4= SON 

• 7M4ALSEC *7MFTxA'-iT « KIM f AFQ 

• 7 HE R ET AN *7HKIFVAA • 7 HK R A S r-O 

• 7hTASH<l *7 HASTRmq ,7HUYNNU 


« 7HDMPPM 2 « 7WOMP SN2 .7HPMPSN? , 
•7MPMDRKI , 7MF 0 AFR 3 .7HNELMAR , 

• 7hNW I E 34 « 7 H NW 1 *f 3 R .7MNREP34 . 
. 7HNC4RNV .7MNWALIS »7MNwALI3 * 
t 7HH>mn TH * 7M s a nsa l * 7hu T AJ(^n * 

• 7HV;RGT*1N ,7Hf.nrpNV . 7*-»-.'4U! H 4 . 

• ?KHDMfc. L . 7WRC U TVL *7MV0LOGD , 
»7HNOVOSJ *7 hR 1AZAN f 7MTAOTU2 • 

• 7HT I w E N 5 % 7M ! UNOAK •7H1E0INR 9 


.ST Ao 

1A 

STAP 

» S 

STAO 

16 

STAP 

17 

STAP 

1ft 

S^AP 

1® 

KTAP 

20 

STAP 

21 

STAP 

22 

STAP 

23 

STAP 

2* 

STAP 


FTAO 

** * 

H T 

z ^ 

S T A P 

2S 

STAP 

2° 

STAP 

?C 

STAP 

3) 

STAP 

3 2 

STAO 

3 3 

STAR 

34 

STAP 

?s 

STAP 

3 6 

STAP 

37 

STAP 

3 3 

STAP 

30 

STAP 

4 C 

STAP 

41 

STAO 

42 

STAP 

43 

STAP 

4 A 

STAO 

4 S 

STAP 

A A 

STAP 

47 

STAP 

A ft 

STAP 

40 

STAP 

SC- 

STAP 

SI 

STAP 

e 2 

STAP 

S3 

STAP 

54 

STAP 

5 5 


: a -0*49 4*_ 
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7H1CQLRA 
7M1DCNVR 
7 Hi JAMAC 
7Hrf ALLAS 

Thsenlas 
7HNATLAS 
7H9OY0RS 
7HVU0QNI 
7H1 ORGAN 
7H10LTIPA 


» 7 H 1 PU R 10 
*7H1 JUM4Q 

♦ 7HWALMOT 
,7HCR'-’LAS 

♦ 7HCRCL AS 
.7HH9NSCH 
,7HH4UT£P 
. ?FMUN ICH 
,7H^00MER 
*7H1 CUPAC 

3 


• 7H1GSFC0 
. 7H1 JUPCt 
• 7HICARVN 
, 7MH0>Jl_AS 
. 7H0L IL A 5 

• 7H0ELFTH 
• 7HMICEFR 

• 7H fr R 4 F 
*7H1 S°AIN 
•7H1JUPTR 


"7HCOMRI V 
7KJ2HGOR 
7HMT JOHN 
-7MPAK AP 


#7HAUSF3 AK 
,7HJUOC=3 
,7HC AL 3A< 
.7HEDWAF3 
/ 


?( 1)1 

. 7 HO 00 A 2 R 
• 7HAGASM 
• 7HCHLAKE 
• 7H°QTD AM 


, 7HiGS e CR 

• 7H1 JtRCA 
• 7HGOOLAS 
> 7 WHO ML A 2 

• 7H « P CLA S 

• 7WZ I «wl D 

• 7WV I CL AS 
, ■’HSAHFLP 

• 7Wt TOKYO 
*7MX VfLDO 


• ?HOF ?FI T 

• 7H7 I MMF.P 
• 7HOSLONR 
• 7HZVENI G 


« 7.WI C KVLE 
. 7H1 SIDBR 
, 7HRRSL A S 
• 7HMOOL A? 
, 7HH0PLAS 
.7HMALVON 
« 7HSALLAS 
* 7HHAUTLP 
,7H1 NATAL 
i 7HI MAUI □ 


«?hna talr 

• 7HPIGALA 
, 7HJOHNST 
•7HHELSIK 


tin) 


*7HJ BFPMD 

*7H1 JU« 24 
• 7H 1 GSFCN 
■ 7 H’-'O f L AS 
« 7HSFLL AS 
.7HGREL AS 
•7HATHENS 
»7HE0 INP.H 
• 7H 1 CLF AN 
,7H1S»'P A7 

DOUBLE PRECISION NAME 
DIMENSION NAME 3( 26) 

EQUIVALENCE (NAME ( 229). NAME 
DATA NAME 3/ 

. 7HDAKA90 • 7HH0°< T N 
, 7HRRA7. IL 
, 7HGRFE CE 
.7HSANVTO 
•* 7HSANV I T 
INTEGERS NUMQ 1 
DIMENSION NUMB 1(247) 

■EQUIVALENCE (NUM 0 SR( n. numb. 

DATA NUMB 1/ 

• !• 2* 3* 4* 5* 6 * 7, Si' 

• 14* IS* 511. 512* 51 3, 514, 541. 54?, 

•1001*10 C 3 , 1 0C5 • 1 CO 6 * 1 39 8 , 1C 1 2* 1013, 10 14* 1 C t 5* 1 016*1017,1 0lfl,lC19* 

*1021*5023* 1 C 22 , 1C2L. 1 C2E, 102 6 . 102 2*5020* 1C 31 .1 922 • 1 0 33 • 1 024 , I '■3S, 

• At/ « A f-l • A -A • /» * H * * * -« * f ^ M ^ - 

m + + — 4 4*«Af » *4.J#4*LUM»4.,, A J<- I i 04. C » 4 ^ 7t)| 

• 162 7. 1625, 1652* 3106* 3233.3234, 34 0 C* 340 1 . 34 02* 34C4 , 3405 , 34 C 6 * 3 AC 7, 

• 3451 • 3432 , 34 53 • 346 3. 3 464 , RA. 65, ? 4 71 , 34 72 • 3546, *4.«j , 3657,3051 , 2 • 

• 404 0*404 1 , 4050 ,4C6C, 406 1 .40 B 1, 40 52.4283, 4 142*4143 ,4 144 , 4 145.4 1 46, 
*4151*4242*4241. 4242*4260, 4250,4340,434’, 4400*4401 , 440?, 4403, 4440* 

• A 44 1.44 4? , 4443. 4 44 6, 4 44 5. 4446. 4450,4540 , A* J C *4 f 90 ,473?, 4773, 47 BA, 

• 4735*4740, 4741, 4742, 476 0,4761, 4840.4260 ,4946,,* >49 ,464 7,4 054 . 4 0 C A , 

• 40C 3*5001 * 5200, 5 t -0 1 « 5 20 2, 5 33 3. 54 1 1 , 550B. 564B,5 64Q ,5 561 * 6002 * 6 C 1 4 * 

• 601 E.6C23 *6027 ,6C35,6C42* 69 51, 6052,61 90 . 6107,6113 , 7034 ,7036,7 037* 

• 7539. 704 C , 7C42, 704 2* 7044 ,7045, 7 071, 70 72. 7C72. 7Q74 ,7 0 75,7076*7077, 

• 707 8 , 70 73 • 7C5C*70Sl»7 C52, 7053, 7054,7055, 70 56* 7 057 , 7 05 3 • 700 4 .*79" 1 * 

• 79C 2*7907 ,7921 * 7R2 9* 7 930 * &•' 04, PO^R, 50 1 0 * 80 1 1 ,5013, 4014, 5015,801®, 
r A 02tr8C22s SO 30 « 8 03 1 , 8 032,80 33, 7804,7815, 9001 *9<-02 • 90 03 « 9 00 4, 9 CCS* 

• 90C6.9C 07, 90C8.9C09. 9 Cl C * 90 1 1, 00 1 2* 90 20. 90 21 • 9023 .9025 • 932 8 *9029* 

• 9031*9039 *9049. 9 CS 0*9066*9-3 74, 90 77,9091,91 13*91 14*91 15*9117,9119/ 
1 NT EGF9* Z NUVR 2 

DIMENSION NUmr 2 ( 7 ) 

EQUIVALENCE (NUMBER ( 2 48 ), NUMB 2(1)) 

DATA NUMR 2/ ..... 

•912C, 94 2 5, 9429.9430* 9435, 9320* 9120/ 

OOUPLE PRECISION L AT 1 • ' ' 


9 < 

851 , 


10 

561 


11 • 

562. 


12 


1 3. 


S71 ,1CC0. 


OIMFNSI9N LAT M 76) 
EQUIVALENCE ’ (LAT ( 

OAT A LAT 1 / 

► 0« 4 975nC I 1 DC,. 0 ,464 rt 2 ‘» 6 ?r>'' * 
, C* 4W4-377 360C, -C *133 -14709?': , 

► 0*21*31 l**7C3*— C *62lC 4 M-in,' 

. 0* 49S345C303* 0 *4626 4540H0 ♦ 

► 0 . 61609 ^ 6300 , 0 * 6151678903 . 


1 ) « LAT ill)) 


0 • 5*46 344 ^? Z , 0 * 0 95995079C * 
C . 7 *6 1 3 I ?4"vo . -0. 4 ?4 71 y P53C * 

0 . 3 J 61 777 ’“»3, 0,vlA?5'.7m:, 

0 • 6 a On 5 l 4 ID 0 , 0* 61 Tf- 630510 • 
0 .61 83 7 a H0 0*-C,8477 1^4 29C « 


STAR 
STAR 
ST AO 

FTAD 

STAP 

STAR 

STAP 

STAP 

STAO 

STAR 

STAR 

STAR 

STAR 

STAP 

STAP 

STAR 

STAP 

STAP 

STAP 

STAR 

STAR 

STAR 

STAO 

STAR 

STAO 

STAP 

STAR 

STAP 

STAR 

STAR 

STAR 

STAO 

STAP 
STAP 
STAR 
STAR 
STAR 
ST A n 

star 

STAP 

STAO 

STAR 

STAR 

STAR 

STAR 

STAR 

STAR 

STAR 

STAP 

STAR 

STAR 

STAR 

STAR 

STAR 

STAR 


56 

57 

58 

59 

60 
61 

.:f 2 

A3 

64 

65 

6 a 
67 
6 8 
A O 

70 

71 

7 2 

73 

74 

75 

76 

77 
7 ft 
79 
o 0 

91 
*> *+ 

o ? 
P<1 
c 8 
9A 

97 
P S 
«9 

93 
c \ 
07 
c 

94 

98 

96 

97 
. 95 

99 
ICO 
’01 
1C2 
’03 

* r a 
VC 5 
’06 

* C.7 
J ** A 

* 0<3 
’ 10 
1 1 1 


Q n./»OC 
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«— 0 • 6J78622I0G*— 0 .A 51 8 64 40 0? . 

• 0-437C59S8DO. 0 .0 9 1 64079DC , 

• -0. 01 03 71 2 ODC.-O .2 05 5 467 4 02 .■ 

• l. 1322234 70S* 0.32315 3 31 DO * 

• 0.M6624 HOC, -0 .5473€7q600. 

• O • 45 3 35 1660C.-0 .3317725300 »■ 
•“0.2055* 5 74DO.-0 .578570800" . 

• 0 .8332*57 20C, 1 . 1 32 2 2 3 A 70S , 

• t. 13AC604 IDO. 0 ,6 1 43 91 1 9DC , 
•*-0.33177:5 3D C . -0 .5217 755 500, 

• -C.5785' 5 7A2 DC. 1 . 1 3 39 74 A 700 , 

• 0.61 42660600,-0 .5736 C9 4200 , 

• 0.2993:04 800, 0.5843433000. 

• 0*7409771300. 0.5372224600. 
DOUBLE, PRECISION LAT 2 


0 .7C561 51 4D0, 
0.6707387000* 
O .5785703000, 
0 . 3 <=7005950 0 , ■ 
1 . 1340604100, 
■0 • 547667960 0. ■ 
0 . 6166243100. ■ 
0 . 3381 573100. 
■0 .6217845600. 
-0 .3319756:0 0. 
'0 . 43*642490 0. 

0 . 5833 88 1 40 0. 
0 .3C37798RO0. 


0.7060395900 . 
0.463351 6600. 
0.8 372457230 , 
0.4 51 756370C » 
0. 6 707337000. 
•0.0108712000. 
•0.451 7663700 • 
0. 8979055500 • 

0.6 143 9; 2 600 • 

C .6142 062 P.DC . 
•0. 3319372200 • 
•C. A 34 661 6 900 • 
0,6 807 67 A 800 • 
0. 3740273200/ 


STAP 112 
STAP 113 
5TAP 1 1 4 
STAP 1 1 *> 
ST AP H 6 
STAP ! 1.7 
STAP. ri 8 
STAP * 1 9 
STAP 
STAP 
STAP 
STAP 
STAP 
STAP 
STAP 


120 

121 

122 

123 

*?4 

125 
1 ?6 


DIMENSION LAT 

2 ( 76 ) 


* 


STAP 

I 27 

EQUIVALENCE (LAT ( 77), LAT 

DATA LAT 2/ 

2 ( 1 )) 



STAP 

STAP 

t p 8 
i 

— 0. 21 1019 2 200 . 

0 ,1 875053000, 

0 .3367821000. 

0.6304 874800 , 


STAP 

130 

0.89737797DC. 

0 .561 3 187603. 

0 .7066373700. 

0. 622541 7700 , 


STAP 

1 31 

0.5651906200. 

0.610227 3 Q DC . 

0 .5535363700. 

0 . 4716063400 . 


STAP 

132 

0 . 63 39 1 58 0 DC. 

C.aiSl 8*8900, 

0 .7179078300, 

0.4 645295500 , 


STAP 

1 33 

0. 4970 97 50 DC, -0 .4528068400 , 

0 .4926431000, 

0.2992146000. 


STAP 

1 3 4 

C. 3745930200. 

0.496 1 043109. 

0 .4648886400. 

0. 5 742537300 . 


STAP 

* 35 

0. 56475*5000. 

0 .5 74 2 2^3000, 

0 . 5901640300. 

0.5 037 207 3OC , 


STAP 

: 36 

0. 577S2584DC, 

0 .654456390? . 

0 .6035870500, 

0. 6G3502CCDC . 


'.TAD 

137 

C. 654-AOoo 5DC, 

w.iui jC *♦ juu , 

0.530957 460 0 . 

0. 5 30 95 7« bOO. 


STAP 

1 .** 

u. 5502^3 vvOC* 

V •onj 2 . 

c . Jttbj i J 0. 

O. 3H63 1 764.50. 


STAP 

! 39 

0. 5955307800, 

0 .5955426600 . 

0 .58C26855D0. 

C. 5802 909300. 


STAP 

♦ 40 

0.5802932900. 

0 .5955 44 3703 , 

0 .5955560800, 

C. 3 04 3 5 7 0 1 DC . 


STAP 

14 1 

0.610 3339 IDO. 

0 .5 860 6-»450? . 

0 .6360645500, 

C. 6609076500, 


STAP 

14 2 

0.6609:76800. 

0 .551 6 21 1900 , 

0 .651031 1900, 

0.5645705000. 


STAP 

143 

-0. 331 6 A 3 9 300. 

0 .356 1 2*7000 . 

C .5648760600, 

-C. 4 745251 30'' . 


STAP 

14 4 

0 .6604 5* 3 00 0, 

0 .660 7 850300, 

-0 .5378853000. 

O.9C90C492DO. 


STAP 

145 

_0. 909305 5000, 

0 .7877 440400 , 

0. 4209402*00, 

0. 6035020000 . 


STAP 

1 A 6 

0.6305709SDO, 

0 .5 728 2292D0 . 

0 . 02252944D0, 

0.761 0259900 , 


STAP 

147 

0. 5333900500. 0 .3634 Al 25DC • 
OOUBLE PRECISION LAT 2 

C .6607702600. 

C. 5571 432000/ 


STAP 
. STAP 

148 

149 

DIMENSION LAT 

3 ( 76) 



* . 

STAP 

iso 

EQUIVALENCE (LAT (153). LAT 

DATA LAT 3/ 

3(1)) 



STAP 

STAP 

151 

152 

0. 5595279600. 

0 .444 0 769700 , 

0 .6011590400. 

1. C 336227 700 , 


STAP 

153 

0.702214 1 4 DC , 

0 .5 805 7402D3 • 

C . 7O58926700. 

0.9596422000 . 


STAP 

* 54 

0* 9535557900. 

1.0131 C57303 . 

0 .7216936500. 

G. 681 1 827700 , 


STAP 

155 

0.9 9 24 0=3400. 

0 .84 76 <''-•9200 , 

0. 0381533100. 

C. 4 604 I 06 900 


STAP 

156 

0*67331 79000, 

0 .5648 EoC 3 OC , 

0.31 0661 1400, 

0.6810291 0OO . 


STAP 

! 57 

0. 6310427400. 

0 .569 6 66190* . 

0 .69 1 96 5 5 70 0. 

0.4 715965000 . 


STAP 

i«a 

0*4715 584300,. 

0 .4 71 593 1300 , 

0 .4715992300. 

0.81 OPO 1S4D0 . 


STAP 

1*9 

0*3154398700. 

C .68066321 00. 

0 .669R?£S.?90. 

-n. 4 747074 300 • 


STAP 

1 60 

0. 691337360C, 

0 .6 142 9270 0? , 

0 .66C7918C00. 

0.6 81044?400 , 


e TA° 

15\ 

-0-4346664 60C» 

0 .5530 1 4 64 DO . 

0 .5530141930, 

0. 6 81040? 300 , 


STAP 

16 2 

0.7462791 40C. 

0 .6 363 936 200 » 

0 .56539g3*-. 30. 

- 0 . A 5 3 0 9 6 7 O ? , 


STAP 

16 3 

-0 . 23738 . 4 1 DC. 

0 .5*299 ’7801 . 

-0 . I C 3 4 6 C 1 100. 

C • 6645937 70? , 


8 TAO 

1 64 

0.91 772 ? 5 70 C, 

0 .9C76C39rO' l « 

0 . 01 31578030. 

0. 91 CC 74 8600 • 


STAP 

165 

0.9727393400, 

0 .5 630 19 1 50C , 

0 . 76 6^6°4 60 0 . 

0.7631600000, 


STAP 

1 66 

0. 766773 3300. 

- 0 .5061 4754Q0 • 

C . 8510304400 , 

0. 9727393400 , 


STAP 

167 


8.0-496 
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• 

0. 8342974600. 

0.3765023500. 

0 

• 636 394 2 2D 0, 

0.7667606100’. 


STAP 

168 

• 

0.55SQ9324D0, 

-0 .4530 9C67D0 . 

-0 

« 54281 229D0. 

0.6 “64 00 3300. 


STAP 

16° 

« 

0.62261 ; 4300* 

0.5124 156300 , 

-0 

.2873844100. 

0.5172661 300, 


STAP 

3 70 

. * 

0. 21 10 1 5S9D0, 

0 .4 715 9 7 22 DO * 

-0 

.55751 22000. 

0.3614076200/ 


STA" 

171 


DOUBLE PRECISION L AT 4 





STAP 

172 


DIMENSION LAT 

4 ( 26 ) 





STAP 

173 


EQUIVALENCE (LAT < 229). LAT 


4(D) 



STAP 

174 


DATA LAT 4/ 






STAP 

.175 


0. 2573?6E>QD0. 

0 .55299281 DO, 

-0 

.547871 580 0 . 

0.6284151 IDO', 


STAP 

‘>.76 


0. 152671 26DC. 

-0 .1034 60 1 1 DO , 

-0 

. 80 08 95 8*9 0 « 

-0.1 034 61 C 30 0 . 


STAP 

177 


0. 4715062 3 00. 

0.741 86649D0. 

0 

.81 P1579CD0. 

0. 5939433200. 


STAP 

178 


0* 64881 B 3 8 DO ♦ 

0 .664 603c«O0 • 

0 

.6102377300. 

C. 95544 OC 200 . 


STAP 

3 7° 


1.O5OS7969D0. 

0.2 922202700, 

-0 

.7677814300, 

0.7OQ23304D? . 


STAP 

i eo 


0.61 02376900, 

0.9 14 2 2721 DC , 

0 

• 9 7 2C339 2D 0 , 

1 .0500208700. 


STAP 

1 81 


0. 257302 3 3DC. 

0.7092 600200/ 





STAP 

182 


DOUBLE PRECISION LON 1 





S T * D 

1 P3 


DI PENS l ON LCN 

l < 76) 





STAP 

184 


EQUIVALENCE (LON ( ll.LON 


1(1)) 

« 


STAP 

3 P 5 


DATA LON 1/ 






STAP 

i e* 


4.8746166400. 

4.9 1 76730500. 

5 

• 1 5 468 66 3D 0 . 

5. 2 053 985 000, 


STAP 

1 87 


6* 01 02959 000. 

6.0331 22 1900 , 

6 

*2104237400, 

1 . 9 34 6 3! 3 60 C , 


STAP 

* 8 8 


2. 5261452500. 

2.6C0 1 513 6 DO . 

3 

. 4 9650 ^4 70 0 , 

4. 2433522500, 


S T AP 

3 89 


4.35073451D0, 

4 .5S36C459D0, 

4 

.9420226300. 

4.2437751 500. 


STAP 

1 90 


4. 2445a 1 9 4 D 0 . 

4 .24A72694D0 , 

4 

.2430746900, 

2.3 BPI 33900C . 


STAP 

3 01 


2. 6C 021251 DC • 

0 .433 1 5022DC . 

6 

. 20 902 29 70 0 , 

6. 2069493300 . 


STAP 

1 92 


4*8770 josccc. 

S .,iol 5 539600. 

4 

. 9377721400, 

4. 8 543 625 900 . . 


STAP 

193 


4.911721 69DC, 

4.9 366 5907,00. 

5 

. 0497835700, 

S. 3630337100. 


STAP 

l 04 


3. 702694 25D0, 

4 .5900 196200 . 

S 

.2710064700, 

0.4835832600. 


STAP 

195 


4*2426901 6DC* 

2 *3338 473700. 

3 

, 7 C 839 0850 0 » 

4.9377721 4DC , 


STAP 

196 


4.8543625900, 

0 .3 25 5372400 » 

2 

. 3883473700. 

4.911721 6900. 


STAP 

197 


4.93565907DC, 

5.04978^5700, 

4 

.2428901 500, 

0. 4335832600. 


STAP 

198 


5. 2630307 i DO, 

3. 7C 28942500. 

4 

. 55001 96200. 

6. 2 710064 7.0C .. 


STAP 

199 


3. 70 339 3 B5.DC, 

4 .8367977990 . 

2 

. 5997399200, 

4.3367963400 , 


STAP 

20 0 


0. 3255.372 300, 

2.5 99 7 299 200 . 

0 

. 825595 B60 0 * 

4. 8367233300 , 

_• 

STAP 

20 1 


5. 049321 3000. 

3.70859232D0 . 

1 

.9647250300. 

0. 3 255 959 600 . 


' STAP 

1C 2 


4. 3367246300, 

5 .0498 217700 . 

3 

.70861 98300. 

1 • 9 0 4 7 250 600 . 


STAP 

2C 3 


5. 20 47 6 3 A 3D0. 

4.694 8 78260C , 

4 

. 6965403800 , 

4. 45261 76100, 


STAP 

004 


5 , 0392 3 2 7 5 DO, 

4 .7 426920500. 

4 

. 8181 25670 0, 

5. 041 4559700/ 


STAP 

2CS 


DOUBLE P9ECISI 

CN LON 2 




* 

STAP 

906 


DIMENSION LCN 

2 C 76) 





STAP 

PC 7 


EQUIVALENCE CLCN ( 77), LON 


2(D) 


. 

STAP 

?C8 


DATA LON 2/ 






STAP 

20° 


S.03174245DO, 

5 .2078 e342O0, 

4 

.5335696300, 

4.5864477200, 


STAP 

210 


0. 16551 04500. 

0 .4 143 549600 . 

6 

.2234 366000 , 

2.43531 33500. 


STAP 

911 


5.1542564 7 00* 

4.2251 e766D r ', 

A 

• 8667850200. 

4. 33^9633700 . 


STAP 

? 


4.9555007800, 

4 .880 1 435300 , 

4 

. 4 529161 30 0, 

4.9157552300, 


STAP 

2 I 3 


4. 876355Q 6D0, 

0 .4 94 9084700 • 

4 

.3764594200, 

5. 2 C 46969300 , 


STAP 

214 


S. 0415946 200. 

4 .3 75 3 2299D0 • 

4 

.91 715 3 7 30 0 . 

4. 4 31 4 C2 6 300. 


STAP 

915 


4. 426676O1D0. 

4.421 4 C3S6D0 . 

4 

.4216314100, 

4. ** 30 52 7 7 700, 


STAP 

21 6 


4. 430335 3 1 DC, 

4 .1 45T 77C2DC . 

4 

. 1 7S555090 0. 

4. 1 70P371 003, 


STAP 

217 


4.145160 i 5.1} C*. 

4 .1 786402400 , 

4 

• 768271 4600. 

4.^402603300, 


STAP 

?1P 


4. 17 71 776 900, 

4.1 971 7*25no, 

3 

.4054071 100. 

3. 4 9 54 0 776^0 , 


STAP 

p * o 

• 

4. 2035037900. 

4 .2? 35 738°0: • 

4 

. 1 971 639300. 

4. t •••71 5 36100, 


STAP 

"*? 0 


4. 1971412900. 

4 .2 0 3 S 5*9*00 , 

4 

. 2 0354 00 700, 

3.49^41 n2 , 


STAP 

??1 


4. 22490 05402, 

4 .2 74 5 26 57 00 ». 

4 

. 2745407300, 

4.9663231 600, 


STAP 

?r? 


4.9663230 200. 

4 .958 4 228300 • 

4 

. 9584228300. 

5. 1 5476S03O0 , 


STAP 

923 
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i O* 0257977900, 3 .4 96 4 56 6003 . 5 • 1 8A76606D 0* 

► 4*9-557193000. 4 #9 65 2 5c 51 DO . 2 . 3 *3275720 0. 
» 6* 27 344280D0. 6 .2 62SG702D0, 

» 4.9335471100. 4 . 2 36 8 5^6* 00 • 

► 4. 695437640C, 3 #5 523 4C 5*00 • 

D0UF5LE PRECISION LON 3 . 

DIMENSION LON 3 ( 76) 

EQUIVALENCE (LON (1 S3). LON 
DATA LON 3/ 


A . 982B41 2300, 
4 .2003567600. 
* . 9652404000. 


3(1)) 


4. 0657695 200. 
0. 776631 5200. 
0. 69331 53S0C, 
'4*5192343500. 
4. 67 33 9 3 9 9D0 » 
4.94 22097 IDO. 
4. 64404 7 38DC. 
4. 94261 30300. 
4.94 226 0 0 P,DC. 
I.98472000D0. 
4.94227501DC. 
5. 0353^35500, 
0. 1333*45000, 
..6,226321 2000. 
0. 0995995300. 
0. 192351 H4DC. 
'4.423432 1 IOC, 
2. 4333945400. 


4 ,380 4 223100 
0 .5323546000 
0 .465 4 21 1 303 
4 .862Q SAS°DO 
5.1 547137300 
4,7883901 6D3 
4 .8 54 9435300 
4 .9420 e205D0 
4 .836 7 24 70 DO 
4 .34 70(551 3DC 
6 .1 746 =30500 
4 .3479950700 
0 .0 762 666400 
0 .4 14 2 CO C 4 DO 

2.4 19 5 SO C4 DO 
0 .1523618300 

0 .4930 154300 

1 .3 86 7 9c 3000 
-4 ,oou vsoy^uo 

4 


O.0?*i7ui >UL/‘7, 

00U8LE PRECISION LON 
.DIMENSION LON 4 ( 26) 

EQUIVALENCE (LON (229), LON 
DATA LON 4/ 


• 5.977S 7 32 1DC. 

• 0. 6799556500, 

• 4. 884943 1 2 DO . 

• 0.3391335900, 

• - 0 • 197635450C. 

• 4.2231808000. 

• 5.9773732100, 

DOUELE PRECISION 
DI MENS ION HT 1 ( 95 ) 


4.347996C700, 
5 .66-94469900 « 
5 .0 34 2 568 3 DO . 
0 .4 1 77 076500 . 
3 .3246027600. 
0 .2290 4! 5 8 0 C * 
0.3 1 150461 09/ 
HT t 


4 .9423236900, 
0.8S030C25D0. 
t .2275351300. 
4 .59CC 1 962D 0 , 
5 . 1312820500. 

4 . 4 5 7466520 C. 
4 .8 P4C4P720 0, 
4. 9653047700, 
4 .965286Q5O0, 
4 . 347 = 932000. 
4 .423491S2O0, 
S . 6694469900. 
C . 1 3C 235660 0 . 
C • C997096600. 
0.0 389 1C 8600. 
6 . 1748560600. 
2 .3373331800. 
5 • 0253-439500. 
5.1468630600. 


4( 1) > 

2 . 3*89830700, 
5 . 1031 259200, 
0 • 1302 85680 0. 
4 .2251877300, 
2 .975248720 0, 
0 .64 17029200. 


1*9847337900. 
6. 203452350C. 
4.1 7p Q 8? C 90 C • 
4. 61 5C 21 1 60 0. 
4.P59S79950C/ 


C. 69621 66900. 

1 .4 460 352 90 0, 
4 . 9423287IOC. 
4. S6698CC 30C , 
4 . =422 998 CDC • 
4 . 8 3 4 = 465 40 C . 
4. 8 70 3 51 7 600 • 
t .9948 059 20 0, 
4. 942^845600 , 
4. 9422 832 700, 
0.4930184300, 
0.41 76999700. 
6.2488280500, 
0. 1274026500. 
6.2268212000, 
0.0996951 200 , 
6 . 1 74 8 6 JC 3 DC . 
C. 9 1 604 Jci VUO , 
3.5559829000/ 


2. 42935*600C, 
5.6694500700 , 
0.4199076400. 
4, 36255771 00 . 
0. 3115046200 » 
0. 4 354858300 « 


STAP 224 
ST4P ?25 
STAP 226 
STAP 2?T 
STAP 228 
STAP 2? 9 
STAP 
STAP 
FTAP 
STAP 
STAP 
STAP 
STAP 
ST AO 
STAP 
STAP 


? 3 0 
23' 

4. • 

''32 

23? 

?34 

235 

226 

237 

233 

23° 


■STAP 240 
STAP 2 A J 
STAP 742 
-ST . 40 
STAP 
STAP 
STAP 
STAP 
STAP 
STAP 
S **AP 
STAP 
STAP 
STAP 
STAP 
STAP 
STAP 
STAP 
STAP 
STAP 
STAP 
STAP 
STAP 


?4? 
** 4 4 
245 
244 
?A7 
348 

249 
280 
251 
2 52 
25 3 
754 
2 55 
?. c 4 
??7 
758 

250 
?60 
261 
24? 


STAO 

.STAP 


268 


Cr*M »w »> 

(HT ( 1), 

HT 1(1)) 


' 

STAP 

265 

DATA HT 1/ 





STAP 

*»66 

**43 « COO 00. 

-46. C00C7. 

-66. CC0D0, 

-27.C00D0, 

2 0 8. CO 00 0 . 

STAP 

?67 

• *555.30000, 

92 1 . OC 0 DC . 

8. DOCOO, 

76. CCOOO . 

1149’. CCOOO , 

STA® 

268 

1123*00300. 

92C.CC 0 CO * 

- 28. COCOO, 

-4 1 , OOCO 7, 

-6. 00 500 . 

STAP 

269 

983.03300. 

93 6. 00 0 C? , 

1C40. OOODC. 

979. 00330, 

148. 00 00 0. 

STAP 

2 70 

"673 *>0 200, 

1 4 1 -e. coo c: ♦ 

*2 5. 0 0 000 • 

775. CCOOO. 

-41. CCOOO. 

STAP 

9?1 

• -18.33300, 

-57.893C3. 

-42, COCOO. 

3556. =1337. 

5 3.7 3 307* 

STAP 

272 

’713.89300, 

1 4 8. COO DC. 

1 5 6. 3679C. 

233. 16200. 

9 0.4 l ooc . 

STAP 

27 3 

1543.97700*. 

876. 25 4 CO , 

1 30. 4030C * 

233. 1 2307 . 

‘ -52.69 300 • 

S T AP 

274 

-4i.c::-no, 

1 355. 777C0, 

1 3C. 4 3 300 . 

3556. =1377. 

50.7c 79 0, 

<T»D 


713**»goD3, 

07 f. 25 4 C3 . 

154 0.9 7707, 

4 8. CCOOO, 

1 56.36700 , 

STAP 

274 

203.1 6200. 

9C.41CC3 . 

-2P3, 12500, 

349, 9330 3, 

94 =. 5 7H7 0 . 

STAP 

r 7 7 

853 *06370, 

1 359. 77 7 CO . 

949. 5730? , 

1 382. 7C000* 

31 8. 1 3 70 0 . 

STAP 

•>7fl 

727.1 000. 

340.399G3, 

1. 1 53DC, 

1 331. 000 3 C . 

314.00 OD J . 

STAP 

070 
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• 72?,00CD0. 340.000CO* l.OOCDC, 

■ # — I6.664DO, 2141. 201C0. 3G.C64O0. 

• — 61*C82D9. -40.731CC, 245.51S0C. 

• 368.555D0. 59.741D0. . 6 3 c . 0 9 400 , 

* • 752.744D0. -45.C58C0, -36.71700, 

• 1843*19900. — 41.997C0. -40.378DC* 

DOUBLE PRECISION HT 2 
DIMENSION HT 2( 95) 

EQUIVALENCE (HT C 96 ) • HT 2tl)) 

OAT A HT 2/ 

• -3.66CD0. -27. 03603. -A2.792DC, 

• 1185.61400. 1217.55100, 1484.31300, 

• 3.27600, 599, 267 CO * 599.237D0. 

• -26.14700, —2 6. 76 7 CO , 229.97CD0, 

• 442.96700, -47.350CC. -47,55800. 

• 219.43300, —4 7. 30 7 CD • -47.30*00, 

» 2787.74500, 2776.33600, -54.C660C, 

• -60. 4^400, -36.795C0. 132C.107DO. 

• 12.30400. —50. 28 5 CO » -47.724DC. 

• 182.55ED0. 41.873CC. -49.62500, 

• 76.65300. 322. 1 60 CO » 426.C010C. 

i . -49.29300, -29.383C0. -43.255D0-. 

• ISO.OCOOO. 96C.ODOCO, 194.COCOO, 

• 114,03300, 75.CC0DC, 44C, 80000. 

• 231.43100. 203. 152CO. 7.78200. 

• —10.36000. —6. 19 3 CD • -6.0930C. 

« —37.6 7800. -3 7. 42 SCO . -38.16600. 

• . 404.75600. — 8.800 CO, -55.11900. 

. 819*65900. -6C.COOCO. -S.207D0. 

i — DOU CL E PRECISION HT 3 

DIMENSION HT 3 1 64) 

EQUIVALENCE (HT (19IJ.HT 3(1>) 
DATA HT 3/ 

• 23X7 .71 IDO. —4. 85 6 CO * 177.606DO. 

_J 5 70 .30000. 249C.000 C3. 2339.141D0. 

. 91.55300, 45.54003. 933,22000. 

■ I33.E9200. 694. 320 CO. 405.22300. 

• 190*01000. 30Q.627C3, 961.70°D0. 

• 6 86 • 092 00 * 1615.C0CCO. 157C. 000DC, 

• 89 • 0 00 DO • 16S6.C0CC0, 249C. 00000. 

• , -23.00000. 636.540C0. 3031.81600. 

• 138. 43600. 879. GO C CO • 1901.30000. 

• . 44 « 00 C DO.. —3 5.786 CO • 131.45400. 

’• * 204.693 DO. 49 C .320 CO. 74 3. 4440C. 

• -7.00 3 00. 101 I.COO CO » 144.00000, 

• 1 33 . 92 5 DO • 4C.C30C0, 170*6729 C. 

END 

A 


-59. 37800. 

♦17. 4300 0. 
243. 171 DO, 
6^. *4900 • 
-54,78500* 
1609. 20600, 


-4 5. 8690 0, 
1577.C93DC. 
-8.032DQ. 
221. 2600 C ■ 
21 3, 9710 0 . 
-1 5. 309OC • 
-54. 06600, 
1127.4*300. 
124. 34800. 
665. 88700. 
-17. 164DC , 
-4 3. ^160 0. 
40. ocono, 

-1 4.65400. 
21 2. 51 8.9 0 . 
1 24* 7200 0. 
—37*51 tOO • 
- 12.94100 , 
-S. 36100, 


38, 3000 0 • 
25. 39CD0, 
137. 02000. 
674. 871 0 C * 
193. 81OD0. 
158. 11 50 0. 
1 56 3. 6C0D0 . 
171. 00000. 

25. 39000 , 
93 3. OOOD 0. 
*54. CCODC » 
729. 17400. 
144.010DC/ 


-1 5.90900 • 
7.44SD0 • 
255.67800, 
-1 3.33200 . 
-49.R95DC • 
-38.82200/ 


1217.35100 • 
1225.Q4100. 
6 0. 806D0 . 
447.4 1 900 • 
220. 01 20C • 

, 765.455D0 • 
-6C.474DC • 
-35.55200 • 

1 R2.557DC , 
6 8.7 7500. 
2 0.2 7400 . 
-15.25400 , 
15 0.00 ODO . 
293.60800 . 
-27.00000 • 
1 74 5.4 3100 • 
2 2 1 .00 30 0 . 
3.0CCD0 . 
2317.83300/ 


1 6 0C. BCOOO • 
490. 32PDG • 
30 9. 6 2 70 0 . 

6.2959C • 
S5. 67500 • 
55.4 4 000 • 
-24 , COCDO • 
2339.0500 C , 
234.06400 • 
-1 4.66COO « 
595. C4 000 , 
1 22.06400 • 


STAP ?P0 
STAP 2PI 
STAP ''PS 
STAP ’4? 
STAP 5P 4 
STAP 285 
ST A® 286 
STAP ?P7 
STAP “P? 
STAP 7R9 
STAP ?«C 
STAP 201 
STAP 2° 2 
STAP 293 
STAP 294 
STAP ?°5 
STAP 298 
STAP ?97 
STAP 590 
STAP 7go 
STAP ?0C 
STAP 301 
STAP 70? 
STAP 30 ■* 
S T AO 304 
STAP •»C** 
STAP 7U6 
STAP "»07 
STAP 7 C 8 
STAP 3C9 
STAP 310 
STAP 311 
STAP 312 
S T A P 31 3 
STAP 3*4 
S T AP 315 
STAP 'MS 
STAP 317 
ST "A Q 318 
STAP *•19 
STAO -aao 
STAP 321 
STAO 22? 
STAP 7 ? 3 
STAP 324 
STAP 225 
STAP 3?6 
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START 

DESCRIPTION 

START returns the array of back values of accelerations 
plus the values of the first and second sums needed for the 
integration routine. It iterates using interpolation until 
the sums converge. The arguments used for iteration are the 
epoch position and velocity arrays and initial values assigned 
to the variational partials. Initial predictions are made 
with. a Taylor series approximation. 
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**ME START 

PURPOSE TO START INTEGRATION PROCESS USING INTERPOLATOR 

FORMULAS AND ITERATING UNTIL DESIRED ACCURACY IS 

ACHIEVED 


CALVING SEQUENCE CALL S T AR T C IORDER » H* FCT • SUM, Y ,NN #M l ♦M2 t Tl M ) 


SYMBOL 

TY PE 

OESCR IPTION 


IORDER 

I 

INPUT - 

HPOER 


H 

DP 

INPUT - 

‘ STEPS IZE 


- -FCT 
(3.U 

DP 

OUTPUT 

- ARRAY OF BACK VALUES O* ACCE 

i 

LERATION 

SUM 

(2«3.1 ) 

OP 

-OUTPUT 

- SUM ARRAY USED BY INTEGRATOR 
INTERPOLATOR. 

AND 

V 

1 (6*1) 

DP 

INPUT - 

ARRAY OF STATE AND PARTI ALS 


NN 

I 

INPUT - 

NUMBER OF EQUATIONS 


st 

X 

INPUT - 

DISPLACEMENT USED BY COWELL 


M2 

X 

INPUT - 

DISPLACEMENT USED QY CDWFLL 

A 


TIM 

Do 

INRJT - 
OUTPUT 

EPOCH TIME 
- INTEGRATOR TIME 


SUBRQUT £NES 

USED 

CLEAR 

ERROR 

F VEVAL COE* 

DOTPRD 

CCMVCN CLOCKS 

INTBLK 




INPUT FILES NONE 

CUT PUT TILES PRINTER 

REFERENCES • GEODYN SYSTEMS DESCRIPTION* 

' VOLUME 1 - GEOCYN DOCUMENTATION 


SUBROUTINE START (I0RnEO«H,FCT.SUV,Y,NN.Mt , M2, TIMI 
IMPLICIT REAL* 6 { A- H, O —7 > 

DIMENSION r(6, H,AUX( f) 

DIVENSION FCT(.T#I1*SUM(2# 3 • I )»CC 15*15*21 
COyM IN/ I *!T HLK/THTOT { J ) , ,A£(63I 

' O I MENS l In Al(15,15),ASi( IS, 1 51 
EOUIV Ai.ANCE(C( 

OATA EPS/ I •CC-I3/, maxk/2D/ 


STAR <P 
STAR AO 
STAR *» a 
STAO 

S^AP c ? 
STAR S’* 
STA° 54 
* T AP 55 
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LOGICAL S W I T CH t N EQ S W 

IKNT=0 

C SAVE EPCCH time 

T=T IM '* • 

NEOS*=NN. CT . 1 
lOL2=IORDER-2 

tOLl*lOROSR-l - 

• IEVEN=( ClORDCR+2 )/2 J « 2- IORDER- 1 
MI=ICL£/2-IEVEN 

; H D=M | ♦ 1+ I EVEN ’ 

. HIDP2=MtO«-2 

1ST =M1 — I OL 2 * ‘ 

1ST V= M2 — I OL 2 
- CALL CLE ARCSUM, I2.NN) 

MkIST+MIO 

KV=ISTV+MtD s % 

DO S J= t • 6 . 

5 AUX(J)=Y( J,1 ) 

1FC *NOT '..ME QS*OGOTD7 ... 

DO 6 J=l . 6 * 

JPI = J + 1 
DO A K=2,NK 

4 4 Y(J,M)=:.00 . 

YfJ.JPl > = 1 .00 

6 CONTINUE 

C CNE TtME CALL AT EPOCH 

7__CALL Ft T.Y.FCT ( 1 ,M FALSE* ) 

1 FOPHATUHO.6G2C.10) 

IFCNEOSW 1 C AL L V£ V A L ( Y , F CT ( 1 . .M 1+ MV ) , 6, • TRUE . . M»> 

C COMPUTE r I NT E “ P CL AT O R COEFFICIENTS FOR EACH OF THE SACK VALUE POINTS 
C IN ARRAY FCT 

DO 10 1=1 . ICL2 
K=I F2 

S=CFLOAT< I - t CL 2 ) 

CALL COEF(S» IOROER.AI (1,K)*AS1 ( 1*K) ) 

10 CONTINUE 

S=-OFLOAT { IOL2 J 

L CALL COc F ( S « IORDER»Al (I *2)«AS1( 1*2)) 

TIV=T 

• C FREOICT FORrfARO USING TAYLOR SERIES 
OO 200 1*1. MI 
. . ■ J - M 4- 1 

«IV= MV ♦ I 

- Pb=DSO«T(DOTPRD(Y*Y> 1 

. Rl = DOTPor>( Y, Y{ 4. 1) >/RO ' X 

DO 1R K = l *3 

KP3=K*3 

GERK=-GMM Y(KP3, 1) -3* C2*R 1*YCK. 1 >/R0)/R0**3 

YCK.l »=YC<.l )+H« (Y (<P3. 1 M-H* (FOTCK* J— 1 1 * • 530+H*GER< /6 • DO 1 1 
19 YI <P3 .1 ) * Y CKP3.I )*-H*(FCT(K. J- 1 ) *H* . EDO *GEPK» 

TIP = T JM4-H 

CALL Ft T I M .Y.FCT Cl • J> ..FALSF.) 

1F< .NOT.NFOS*)GO TO 2 C J 
K0=MJ ♦ J V - 1 
00 799 N=?,NK 
KK = KOF( N-2 M M 2 


STAR 56 
STAP S7 
STAP 

STAR 5° 
STAP 60 
STAR ,6 l 
STAR*'- 62 
STAR 63 
STAR 6* 
STAR 65 
STAR 66 
STAP A7 
STAR ffl, 
STAR 6R 
STAR 70 
STAR 71 
STAR 72 
STAR 73 
STAR 74 
STAR 7 S 
STAR 7* 
STAR 77 
STAR 78 
STAP 79 
STAR 8C 
STAR 81 
STAR 8?. 
STAR 83 
STAR 84 
STAP es 
STAR 86 
STAP 87 
STAR 83 
STAR 89 
STAR OO 
STAP «! 
STAR 92 
STAP 03 
STAR 94 
STAR 95 
STAR 96 
STAR 97 
STAR 9fl 
STAR 99 
STAR 100 
STAR 101 
ST AO 102 
STAR IC3 
STAR 1 C A 
STAR 105 
STAP 108 
STAR «C7 
STAR ICR 
STAR ICO 
STAR MO 
STAP * l l 
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DO 799 K= 1 .3 

STAR 

112 


KP3 -K4-3 

. STAR 

1 I 3 


VfK *N) = Y< K , M+H* (Y (KP2, NJ «-H*FCT{ K ,KK . |*.5D0) 

. STAR 

1 ?- A 

799 

V(KP3.N)=r (KD3,NJ+H*FCT{K,KKJ 

• STAR 

1 1 5 


CALL VCVAL(Y.FCTU ,KO ♦! )*6# .TRUE**M2) 

STAR 

I 1 6 

-200 

CONTINUE *■ 

STAR 

117 

C PREDICT aAC<*ASD USING TAYLGR SERIES 

STAR 

1 1 * 


00 205 K-l .6 

STAR* 

r i n 


YCK.l l = AUX (KJ '• /-• ‘ 

STAR 

t 2C 

205 

CONTINUE 

STAR 

J 2 1 


IF| .NOT . NHGSw) GO TO 207 

STAR 

!?? 


DO 209 J=l ,6 

STA® 

123 


DO 208 M=2 *NN _ 

STAR 

124 

203 

Y< J.N>=2. DO 

STAR 

12 5 

209 

Y< J.J*1 > = 1 .DO 

STAR 

! 26, 

207 

CONTINUE • 

STAR 

J 2 ■* 

. 

TIM =T' , •• 

STAR 



DO 21 1=1 . MID 7 * 

STAR 

!?° 


JsH-I 

ST AO 

1 30 


JV=MV-I 

STAR 

131 


RO = DSQRT(ROTPRD(Y. Y>) 

STAR 

! 32 


Rl = DOTPR0.{ Y. Y( 4, 1) >/R0 

ST4R 

Ll.l 


00 25 K=l,3 

STAR 

1 24 

t 

KP3=<+3 

STAP 

1 35 


GERK=-r,M* ( Y, { <P 3 . 1 ) — 3 .C3*R1*Y<!< . 1 )/R0>/P0**3 

STAR 

« 36 


Y ( K • 1 ) = Y ( K • I >-H* (Hkp.MI-HMFCTIK, JM >* . 50C-H*GERK/6 « DO ) i 

ST A* 

137 

25 

Y l » i / — Y « K , 1 i“nr ( T ( K » J T* j-"!!* « 5DO*Otnis i 

STAR 

126 


TiM*T»« — 1 

Siam 

1 w V* 


CALL F<TI 4.Y.F.CTCI . J >. .FALSE. ) 

STAR 

S An 


IF( .NOT .NEOSW) GO TO 21 

STAR 

* 4 l 


H0=M1 + JV4 1 . . ' 

\ .STAR 

142 


DO EDO N= 2 * NN 

STAR 

143 


KK = K3t(W-?)*«2 

STAR 

14 4 


DO 330 K- 1 * 3" 

* STAR 

1*5 


KP3=K+3 

STAR 

146 


VCK»N)ssY(K . N)-H* (Y (KP 3. N)-H*FCT{K,« ) * • 5D0 ) 

STAR 

* 4 7 

80 0 

Y( KP3.N) =Y (JCP3 *N )- H» FCT {< ,<K ) 

STAR 

1 4R 


CALL VEVAL (Y.FCTU .<0-1 ),6, .TRUE., M2) 

star 

140 

21 

CONTINUE 

STAR 

’ so 

C FESET F.PDCH VALUES 

STAR 

151 


00 206 K=1 .6 

STAR 

152 


Y<K ,1 ) = AUX (K) 

STAR 

* 53 

206 

CONTINUE 

STAR 

1 5 4 


IF( .NCT .NECSW) GO TO 22 ’ 

star 

* 5 5 


DO 2206 J= i. e 

STAR 

156 


DO 2237 N— 2 * NN 

STAP 

157 

2207 

Y( J ,N)=2. DO 

• •_ STAR 

• Sf 

'2200 

YC3.Ufllsi.no 

~ STAR 

* 6Q 

22 

CONTtNUE 

STAR 

1*7 


SWITCHs.rALSE. 

STAR 

161 


KOU NT =3 * * 

STAR 

'62 

C COMPUTE SUVS 

STAR 

» 67 

23 

DO 33 N=1 . NN 

STAR 

» 64 


K3 = C 

ATAH 

» 66 


IFIN.GT.I » <3 = 1 

STAR 

16 6 


K4&K1M 

STAR 

167 


- 8^-503 
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istp=ki« { i st v- isf j ♦ i s r 

•CO — K3* MI ♦ < N-K4 )* *2 + I 5 T D ♦ I OL I 
00 30 J = l . 3 
A— C*DO 
fl=C ,00 

DO 29 1=1 , ICL2 
KK-KO-X 

A=A-Cf I *«I0*2.1 >*FCT ( J , KK ) 
B=B-C(I • M * 04-2. 2 > *F CT ( J. KK ) 

29 CCKTIKU? 


A=A*C(J ->L1 .MID + 2.1 I»FCT (J,K0-I0L1 ) 

- A=V(J+3.N>/H4A 

B=Y CJ.N»/H**? + CFLO AT ( I+-MI J* A4«3 
C CHECK IF SU^S HAVE REACHED DESIRED ACCURACY 
OIFF1 = DAFS C A-SUMU , J , N) | 

5 UU( 1 « J.N >=A 
DIFF2fDA«S < E-SUMI2 , J , N> ) 

Sum (2 • j * n ) =r 

IFtCASS ( A > . CT. I . r-SO ) CFFF i = n I- F I /DADS( A ) 

IF t DAGS (R) . GT. 1 .050 > Cl FF2-D I Pfr 2-/DA9 S( 0 J 

IFtDIFFI.GT.EPS)S*lTC(-=.TPUE. 

IF<D! FF.7. GT .EPS ) SW ITCK=.TRUE, 

30 CONTI NUE 

-COSING ABOVE SU VS . RECOMPUTE POSITION C VELOCITY t ACCELERATION 
K OU NT = < O'J NT+1 

1 1= IOROEP 4 I-KOUNT * 

IFf II .ro.M top? 1GC1T0 SC 

\ as I «ST *■ I O' .1 C* WT 
I2=-K0UNT 
DO 45 N=1 ,NN 

K3=0 % 

IFf N.GT.I )K3 = 1 
K4=K3+l 

ISTP=K3M ISTV-ISTI+IST 
K0=K3*Ml ♦ ( N-K4 ) *M2 M STP + IOLl 

00 45 J = 1 ,3 , V * 

A=0 *00 

b=c.do . ’• ’ ■ ; 

DO 44 K-l . I0L2 

KK=KO-K . • - 

A=A+C(K. I I , 1 )»FCT{ J.KK) 

. B-FH-C (<« I I »2 )*FCT( J.KK) 

44 CONTINUE 

A=A4C(IOLI .11, 1 >*FCT C J,KO-tOLl ) 

A=A + SUMU . J.N) 

. B=P4SUV{ I . j. N) *orLOAT { I 2 J-»-SUM{ 2 * J « N ) 

YC J.N) = e*H**2 
V C J *3 * N > = A*H 

45 CONTINUE 

TIV^T+n^LO AT (I -v )*»- 

CALL F{TI M.Y.FCTd . I). .FALSE.) 

IFIN20SW ) C ALL VEVAL CY.FCT( 1. M I ♦ I ST V ♦ 10 L 1 -K 3UN T| , 5 . . TP U**. , M2 » 
OO 53 J=1 . 6 ’ 

5? YtJ«II=AUX(JJ 

IF| .NCT .NHOSW) GOT350 
DO 53 J=I i 6 


STAP 164 
STAR 1A9 

star t?c 

STAR 17t 
STAR P 2 
STA R 10 3 
STAR *74 
STAP 1,7? 
STAR*-! 74 
STAR *77 
STAR 1 7? 

STAR t 7R 
STAR ISO 
star let 

STAP *«2 
STAR *B?' 
STAR 1?a 
STAR 
STAR } 
STAR 1 47 
STAR * 4P 
STAR ? «Q 
STAR JQC 
STAR *o* 
STAR 1«3? 
STAP JR? 
STAR ? Oft 

«T»6 « ftC 

STAP »Rf 
STAP ! 07 
, STAR 1 o«* 
STAR J <?0 
STAR 3CC 
STAP ?0I 
STAP ?C? 
STAR 20? 
STAP ?04 
STAR PC'S 
STAR ?06 
STAR 207 
STAR 20? 
STAR 2CR 
STAR r * C 
STAR 21 l 
STAR .2 J Z 
: STAR 2 p 
STAR ? I a 
STAR ?15 

star ?1A 

STAR 217 
STAR 21 S 
STAR *■» 1 R 
STAR 2 
STAR 

STAR 222 
STAR 
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OO 55 K-2 • NN 
55 Y(J«K)=2.00 

S3 Y{ J«J^1 ) = 1 .DO 

•50 I F C KOUNT • L T « !OL 1 )GO TO 23 ' 

|KHT=lKNTfr| 

C EXIT t_c CP l r A C CUR ft C Y HAS NOT- 6 E EN REACHFD AFTFR MAXK TRIGS 
I Ft IKNT . GT .MftXK ) GO TO 59 

C RECOMPUTE SUMS * 

IF(SWITCH> GC TO 22 
GO TO 60 

£9 PRINT 61 . IKNT. EPS.DI FFi .OIFF2 • 

CALL ERROR (10. D I p F 1 > 

61 FOR MAT t 1 Ml .2CX, • INTEGRATION STARTING SUMS NOT CONVERGED AFTER . 

* 13«* I TER AT IONS * / 1 HO • 1 5X . *E PS = • . D2 2 » l 6 /I 6X « »t> I FF l = *• 

• 022.15/16*. 'DIFF2 =• .022. 16/1HC.2CX. -EXECUTION CONTI NUI NG •// ) 
60 T IP=T tDrLOAT (MI ) *H 

. .. RETURN * 

END « 


STAR 22 A 
STAP 225 
STAR 226 
STAR 22T 
STAR ??* 
STAR *>20 
STAR 230 
STAR 23 i 
STAR 2*2 
STAR 233 
STA» ?3* 
STAP 235 
STAR 236 
STAR *37 
STAR 23* 
STAP 23° 
STAR **0 
STAR 2A 1 
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$a ve 

epoch Txnuz 


C/i£<X XF SumS 
XEFC//<Fj> 

Jes?£eS> /iccu&ic r 


Comfort ivttPccA Tc£. 
CoeFFJCX^Kj TS FOfiL 
EACH cfi THE tirtCZ 
VALUE pet /UTS XF 
Anc/iy per 


Usz*)t ? /i/Sc ve 

SU/?L$, Aiecompj 7£ 
PcS2TX6/S t VELO- 

cxzy /ujD ac- 
tcUErtpricAj 


PEedTCT Fc-tn.UA/zz 
UStAi^ 

TAitcxi seizes 


SfctvAAt-x ate^ 
/ Fcac//&$ AFrr* 


S7 


/Xcarcr /3 ao.cj^ 

(iSZA}C ? 

-myavz seizes 


yFTTcMre \ 
APccaSt o/ux 

\ /H-O/Z-tF / 


SX 


ZcSCTT 

CrPCcH yPctMfS 




C’g/kPuTc . 
x^UAtS 


fZCETO/Z- aI 
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NAME ' STORE .. 

- « 

PURPOSE TO STORE COMMON AND ARC INFORMATION ON DISK 


CALLING SEQUENCE 

CALL STCREIRRCALL 

. COMPAR) 


SYMBOL TYPE 

DESCRIPTION 

•- 


RECALL L 

INPUT - 

•FALSE. - 
•TRUE • - 

STOPS INFORMATION 
RETRIEVE INFORMATION 


CCMPAR L 

INPUT - 

•FALSE. = 
'•TRUE. = 

ARC PARAMETER INFORMATION 
COMMON PARAMETER INFORMATION 

-^SUBROUT I NES U S E 0 

- NONE 

* 

« 


COMMON BLOCKS 

AP AR AM 
IN IT B< 

CEL EM 

—INTEL K 

CTIME FLXBLK 

PREBLK PRIORI 

FMOOFL 

TPEPLK 


VRPLOK 




INPUT F ILES 

» 

SCRC - 

SCRATCH 



CUT PUT FILES . 

SCRC - 

SCRATCH 




SUP ROUT l N E STORE (REC A LL . C CMP AR ) STOP 

IMPLICIT QE^L*" (A-H.C-ZI ♦ STOP 

LOCICAL RECALL . CCMRAR .MISLOG ’ . STOP 

INTEGER XYZTF. FLCTP, SCRC. FLTP, TMCTGO .ELEMST . STOP 

REAL DAYREF STOP 

DOUELE PRECISION MODEL STOP 

COMMON/AO APAV/ INPAR { 1 0) STOR 

COMMON/CELEM/ELEMST ( 52) : STOR 

COWON/CT I ME/DAYREFI 2 2) STP® 

COMMON/FLX FLX/ ISTOREI 4^0.9) . STOR 

COMVQN/FVODEL/ INCEX ( A >, CS( 3C .33) •MODEL! 81 STOP 

COMMON/ IN I T E</ I EPTMD ( A 3 ) , M I SLOG< P ) ST*OP 

VUf'.i'UN/lNTCLK/THCOTl ( 27) .THETGGI 78) S^OP 

COM MON/ PR E BLX/OAYSTA, NO PS { 1 5 ) STOR 

COVMON/PRI CRI/ELEMINI 96) * STOP 

COMMON/To^^LX/ INTP ( 3 ) .XYZTP < 3) . PLOTp( 3) « SCRC .FLTPI2) STOP 

COMMON/VROLCK/ JSTDREI ASO. 5) . STOP 

IF t RECALL l CC TO S00 STOP 

-Of) 100 1 = 1.9 - - i ~ T ~- STOP 

10D WRITE IS CPC) (ISTCRCf J .1 ) .J=l .A 5 0 ) STOR 

00 ZC 0 1 = 1.5; STOP 

2C0 WRI TEISCRC ) , < JSTCREt J .1 ) • J~ 1 .*50 ) ' 

IF< COMPAQ) RETURN ST«"*P 

* WRITE CSC^-CI CAYPEF, INCCX.DAYST A.XY7TP,THETG0*ELEMtN f INPAP.IEPYMD. STpQ 
• CLS^ST STnP 

RETURN .• STOP 

SOC DO 700 1=1.9 STOP 

700 REAOCSC^C) { tS TO F£ ( J . I) . J = 1 • *5 0 > STOP 


?P 

po 

30 

31 

32 

33 
3 A 

35 

36 

37 
3P. 
30 
AO 
A 1 
42 
A3 
A A 

A5 
46 
A 7 

4 A 
AO 
S* 

*M 

5 3 
5 3 
FA 
55 
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DO SCO 1=1 

*5 • • '• 

stop 

56 

PE AO{ SCRC 1 

(JSTQRECJ* I)»J=lt450) 

STOR 


XFC CO ^ p AR 1 

RETURN 

STOP 


READCSCRC) 

CAYREF, INDEX t D AYSTA t X YZTP * THE TGO.FLEM* N. IN 3 AR « I EPY*‘D • 

STOR 


• ELEMST 

- 

STOP 

6C 

RETURN 


STOP 

61 

ENfl 


STOP 

62 


... . . . • ....... ... • . -r s. \ . ■ 
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*AME 

PURPOSE 


SUMMRY 

TO PRINT ARC STATISTICAL SUMMARY 


CALLING SEQUENCE CALL SUMMRY ( AR CNO « INNER ,OUTFR *L I NNE R *EOI T « NAME) 
.SYMBOL TYPE DESCRIPTION 


ARCNC I 

INPUT - 

ARC NUMBER 



INNER I 

input - 

INNER ITERATION NUMBER 


OUTER l 

INPUT - 

'OUTER ITERATION NUMBER 


L INNER L 
* 

INPUT - 

•TRUE. - LAST 

INNER ITERATION 

EDIT R 

INPUT - 

EDITING LEVEL 


* 

• . 

NAME t 

INPUT - 

STATtON NAMES 



CI» 





SUBROUTINES USED 

STAINF 

EPROR 



COMMON BLOCKS 

AL PM RC 

APARAM 

CF.LEM 

CONSTS 


CSTINF 

INI T9 K 

TPERLK 


INPUT FILES 

NONE 




CUTPUT FILES 

OUTP - 

PRINTER 




CPAPAM 


SUBROUTINE: SUM.MRYI ARCNO, INNER, OUTER , L I NNER • SO I T. NAME) 

LOGICAL*! BYTE, SLASH 

LOGICAL C^PC, PR, SWITCH, L INNER. HYPER 

INTEGER* 2 I S AT • . 

. INTEGER RBCNCl , OUTP, D ATP , ARCNO , OUTER 
DOUBLE PRECISION I TN MS, TIMING* BLANK , A T Y 3 E » UNI T S .ELEMST , CP3EL A , 

• EPSEC, OREEL,CCNF IC.NAME, ELCUT • 

DIMENSION BYTE 18 ), NAMEt II 

COMMON/ AL PMR C/ I T NM SI 5 ), TIMING, BLANK * ATYOEI 31 ) # UNI TS ( 15) ,ELCUT , 

• HYPER 

'COMMON/ AP ARAM/ JNPAR, I NP AR I,NRI AS,ESTSTA,NSAT ,NG°ARC ,RECN01 , NPA R A u . 
, NERl AS « MAXP AR 

COMMON/ CELEM/ELEMST ( C .2 ) .ORRFL A( 6, 2 ) , IG 15( 4 ) ,RMSTOT 
COMMON/CONST S/P I .P r 1 .TWO® I .Twnoi 1 ,ORAD. ORACH » W SEC 

CCVM^N/CP ARAI-VNS T» , N M AS T • NS TEST « NO I ■ MM l AS .NGPCl . NS»C ?.» NC,PCO« , 

« NCSE5T, CMPGPO.L IM 1 ,L l«2. N9=N , NDENST.N TIDST ,NTI C£N * I NNRSW , 

• hCONST , NDCONS 

COM VON/ CS T IN* - / ME A3 NO ( A) , NOT St A » . ROME AN( 4),RWS3{4 ).pn:>C4> , 

«. M-ASWT (A) ,WIMEAN{ A »,MMSwTG< ** ) ,WT»ND(* » , TY^RMSC **7» .NUTYPCf? ,30) 

• eSUMf A , 12 URMSNJt 30) .NOALLC 30 ) , N'lwmu.LBASeE 

COMMON/IN I Tf)K/ I E PT MO, ItPHM, r. PS C C ♦ IYf?rT , I NN MAX , I NN m I N * C ON VR C. , 

• CR0fL (6 ,2 )* CO ITN, INSUPR, ICS AT I 2 )♦ SWl TCH( 21) 


SUM M 

34 

SUMM 

3G 

SUMM 

36 

SUMM 

37 

SUM” 

? P 

SU M M 

3° 

SIJMM 

AC 

SUMM 

A 1 

SUMM 

A 2 

SUMM 

A ■* 

SUMM 

4 A 

SUMM 

A 5 

SUMM 

46 

SUMM 

47 

SUMM 

A 4 

«HJMU 

4<J 

SUMM 

SO 

SU V M 

F 1 

, SUMM 

K? 

SUMM 

S'* 

SUMM 

S4 

SUMM 

ss 
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COMMON/TPE ELK/ I NTP • OUTP . D ATP CIO) 


SUMH 

56 


EQUIVALENCE (CONFt G. 0 YTfc< 1 > ) 


SUMM 

57 


DATA ASTRSK/1H*/,SLASH/1H// 


SUMM 

SB 


Ll^LOASFHl 


su«« 

5P 


tS AT - 1 


SUMM 

6H 

c 

CALCULATE STATISTICS 


SUMH 

61 


CALL ST4INF(3,C,P,P,P,P,ISAT,P} 


SUMH 

62 

c 

LOOP THROUGH 1 50 C FOR EACH SATELLITE 

- . ‘ - ‘ • . " " ■ • 

SU«M 

CS3 


DO 150C I S AT = 1 * N ft A T 


SUMM 

64 


KRI TE (OUTP , 5000 ) I S AT • ARCNQ . INNER , OUTEP 

SUMM 

65 


LINE=1 


SUMM 

66 


NOGS ( D = 0 


SUMM 

67 


IF(NSTA.LE.O ) GO TO I60C 


SUMM 

66 

c 

LOOP THROUGH 150 0 FOR EACH STATION (OR 

BASEL INE J 

SUMM 

6« 


00 15C0 J=l.NSTA 


SUMM 

7C 


DO 2500 L°l=l,Ll 


SUMH 

71 


L-LPJ-1 

‘ » 

SUMM 

->2 


IF(NORS( 1 ) .EQ.C ) GO TO 20 0 


SUMU 

7? 


. WRI TE <OJT=« , 5 10 0 ) 


SUMM 

7A 


ClNC^LlMEM 


SUMM 

75 

c 

OBTAIN STATISTICS FOR EACH STATION (OR 

BASE LINE FOR TWO STATION 

SUM M 

76 

c 

DATA) A NO FACH SATELLITE 


SUMM 

7? 


JOO CALL STAINF< 2, J,P,P,P,P, ISAT.L ) 


SUMM 

76 

c 

LOOP THROUGH 1400 FOP EACH MEASUREMENT 

TYPE 

SUMM 

70 


OO 140C Ksl.ft 

* 

SU«M 

SC 


|F(Nnns(< > .eo.o) go to tsco 


SUMM 

PI 


IF (LI NT. LT .40 GO TO SCO 


SUMM 

6? 


WRiTE((T»TP,5 20 0 ) 


StIMM 

a 7 


WRI TE(OUTP,5COO ) I S A T . ARCNO . INNER .OUTER 

SUMM 

P4 


LlNE=l 


SUMM 

P.5 

... 

200 LINE=L!NE-M 


‘ * SUMM 

66 


MTY PE= Mp A 5 NO ( K ) 


SUMM 

67 

c 

CONVERT UNITS FCR OUTPUT 

• 

SUMM 

66 


IF( MTYPE.LT. 14 ) GO TO 300 


SUMM 

. P-9 


M=MTTPE-26 


SUMM 

9C 


__G0 TO C 4C a . oSC • 7 GO . 7 C 0 > . M 


, SUMM 

9 1 


300 H = MTYPE-( MTYPE/8 )*7 


SUMM 

92 


CO TO ( 500 .8GC.7C0 . 70 C. 60C. 500 .5001 

.M 

SUMM 

O "* 


400 «DMEAN(K) = POwEAN(K J* 1 .CE + 09 

’ • 

SUMM 

04 


RMS 0(K> = RMS0 (K )♦ 1.0E+09 


SUMM 

05 


CO TO BOO 


SUMM 

96 

- 

450 ROMEAN( KT ) =RDVEAN(< 1 * 1 .OE+6 


. SUMM 

07 


RMSC(K) s3nso« 1* I.GF.+ e 


SUMM 

C q 


GO TO SCO 


SUMM 

OO 


500 ROME AN (<) -ROME AN (K )/ RSF C 


SUMM 

ire 


• RMSO(K) -RMSO (K I/f.SEC 


SUMM 

1C1 


GO TO BOO 


SUMM 

1CP 


COO ROMEAN(<] =ROMEAN{K )* l ,CE*03 


SUMM 

'63 


RMSO(K>=RMSO (K 1* 1.0E+03 


SlIVM 

T C 4 


GO TO -JJJ 

• 

SUMM 

1 6S 


700 IF ( WTYP-. EO". 4» GO TQ £00 


SUMM 

’06 


. ROMEANK JsKOvean K >* 1 .0E + C2 

- • . ‘ . 

SUMM 

ZC 7 


RM«:0(k>=pmS 0 (K )* l.CE*02 


SUW 

*CP 


BCO CON^IGs BLANK 

* 


SUMM 

ICo 


IF(MtYP r :.LT *27) GO TO 900 


SU M M 

! 1 n 


CONFI GsMAME (L) 


SUMm 

t J 1 
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BYTE(B)=SLASF 
: PRINT STATISTICS 

900 WRI TECO’JT P.530 0) COVF IG.NAMElJ 1 , ATYPF(MTYPE) .N0SSC<1 .RDMFANCK) 
IF ( NOI3S ( K > «IT • 10 ) GD TO 1000 
A1 = BLANK 
AZ= £?LAN< 

IF(RND<<) . GT .1 .98) A 1 = AS TR SK 

IFCRNOCO .GT .2.58) A 2 = A ST RSK - ' 

WP I TE C OUT ° * 5 AC 0 ) °ND(K] . A 1 , A kMS0( K ) 

ICOO JF( ME A5*T ( K > *GT .0) WR UFiOUTP, “iSCOJ MEA SWT { K ) , WTMEANCO 
IFCWcASwTC <» .LT, 10 ) GC TO 1 1 CO 
A| sgLAN< 

42= FLASK 

IFC WTRNOC K ) . GT . 1 .5 8) A1 = ASTRS< 

IF (WTRNOC K ) .GT .2 .53 > At*=ASTRS< 

«RITE<OJTP*5CCC> W TRNC(K) « A 1 *A2,RM5vfT0(K ) 

I ICC NOW T03= MO* TOE* ME AS WT ( K> . , 

1 400 CONT X NUE 

I SCO CONTINUE * 

1600 DO 1700 1=15,26 . 

1700 NOwT CB=NOtf TCB4-NOTYPEC2. I I 
IS AT— 1 

1 ifcnowto^.lt . a ) call epporc 5,bl ank ) 

• COMPUTE STATISTICS 3Y MEASUREMENT TYPE ONLY 

CALL STAINF{A,NPARAM,KM,qMSTCT,P # LINNER,o*p) 

Ifcnsta.lc.o) go to ieco 

: SRITE TCTAL RMS 


WRITnCOJTP 
C PRINT rCIT LEV 

leoo ifieoitn.l 

C PRINT SUMMARY 
WRI TE ( OUT P 

00 1900 1= 
IF ( NOT Y °E ( 
.. TYPRMSC 

J=I +7 

IFC NOTY °£ ( 

• TYPRMS ( 
19C0 I F ( NOT Y D E ( 

DO 20 00 1 = 

- — IF { NOTYPE ( 
WRITE <0*-»To 
WRITECOUTR 
2 COO CONTINUE 

WRITECOJTP 

— : RETURN 

5000 FOR w AT ( 1 H 1 

• 32H s?S 


*'*•'*♦ •".» ■ u . ... 

,5200) 

EL * 

T.JOO.) WR I TE (DUTP ,5800 ) EDIT 
2Y MEASUREMENT TYPE 
,500 0 ) ARCNC. INNFR.OUTFR 
1,7 

2.D.GT.0) WR ITEIOUTP , 6000) ATYPE ( I ) .NOTYPE < 2 . I > , 

2 , J ) . GT . 0 ) WR ITEt OUTP , 60C0 ) ATYPE ( J) .N3TYPCC 2 • J> 
J) 

2,1) ♦NOTYPE <2 * J ) .GT. 0 ) WR ITE<OUTP ,51001 
15,30 

2, I) ,LE.O) CO TO 2000 

♦ 6C0C) ATY P£ ( I > ,NOTYPE< 2. I ) « TYPRMSI I 1 
.5 100 I 


♦6100) NM.RMSTOT 


16H INN 
14X.1 3 
ax . ph 

15X, A H 
7 X , RHR 


5100 FCFVAT(U) 
5200 format ( ; HO 


.22X.9H5ATELL ITE, 12, 4H ARC, 13. 

I DMA L SU mm A Rv RY STaTJCN Pop, . • 

ER I TERATION, 13, : -JH OF CUTER I TE PA T I ON . I ? // 
HSTATICN MCAS, 1 3X . 3 l H9ES J DUAL S FROM ALL OSSERVAT 
NO' OF W’D, iX* 1 R A T ! O. 2 X , a h •* = T r , M T? O , 7 X , 8 H W" I 

N.\M= , 4 X. mHT Y'-’E . 5X, *HNljyP c p , 5 X 
E S I DUALS , 4 X , A H T H S I GV A , SX • 3HRN Q , A X , 

• 12X.71H* - INDICATES RESIDUALS ARE SIGNIFICANTLY 


IONS , 

GHTrrj/ 

3Hr«s, 


NTN-o 


SUMM 

SUMV 
SUMS* 
. SUMM 
SUM s* 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMV 
SUMS* 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
• SUMM 
SUMM 
SU“M 
SUMM 
” SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
SUMM 
-SUMM 
SUMM 
SUMS 
StIMM 
SUMM 
SIIV V 
SU"M 
SUMM 
SUMM 
ASU v M 


112 
t ! 3 
11* 
I IS 
1 1 6 
117 
1 JS 
Vie 
1 20 
121 
122 
123 

’24 

125 

126 
.1 27 

* 2 P 
129 
\ 30 

131 

132 

* 33 

* 34 
1 35 
136 
1 37 
1 3D 
I 

140 

Ul 

1 A? 

14 3 

1 4.A 

’AS 

146 

147 

148 
14 0 
! SO 

151 

152 
1 53 
ISA 
1 5 S 
156 
IS’ 

IS* 
ISO 
*60 
1*1 
1 6? 

1 63 
1 64 
' 6« 

1 66 
1 67 
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5300 F0RMAT(6X . A3*A7, IX .A6«8X, lA t Fj 2. > 

5400 FORMAT (lHt,5;!x,FO, 3*2Al,FR,3) 

SEOO FORMAT! 1 H* ♦ 8 0 X « I 4 , 3 X « F 1 J. 3 ) 

5600 FORMAT! 1H+ . I GO X » F9 . 3 . 2AI.F9..1) . ’ 

5700 FORMAT ( i. HO # 76X * 3HALL • I5*22H WE I GHTFo' ME A S UR - w-mt* ct , A % 

^ioSal^S^hcrfatp 6 ^ 50 ^ 03 THIS !TE??AT,f3N no’m£asu«-«ws WITH PES! 
20LUTICISH R THAN,F9,? * 6h SICMA/1H . 20 X , 2 5HWER E USRD IN THF I 

S900 FORMAT C IH1 *23X*3HARC* 13* 38 H RESIDUAL SUMMARY RY MPASUR-MENT TYor 

. iRHFOR INNER ITERATION* T 3 « 1 OH OF OUT^R f rDA TI ns !V ' 

? 1H0 » 3flX * 1 1HME A SURE MEN T» 3 X * 1CHNUM3ER OF . 

■ l ^HRML°; ex - 8HWFIGHTEO/ - 

6003 FORM AT(H .4CX . A6. I5X. rs, 15X.F J0.-») 

6,00 ^ORMATUH * 43X • 1 IHRMS FOR ALL* IS* 22H WEIGHTED ME'A SUREMr NTS *F 1 0 • 3) 





cap*. y 
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CA/C OCA7F 

statistics 


CoAJvear 
cMjxrs fo/z. 
Output 


jloop tf/ccu^p 
/Sea fo/z 
e/)CH 

$a rctczre 


m 


/.OOP T/*Poo$/i /SCO 
Fo/Z CPC// Sr a rxc/J 
Toe Apsccr/^e) (’oK 
PASCtTAF PC/ nco 
S TA TSC/J £>4 Tfi) AajJ) 
c/Kti sat? cars 


f/XAJT 

$r*TZSTZCS 


ZOO 


c.aKPurs 
ins tics /?r 
\pUFA s V £<?/>1 €A/r 
\TypF over / 


f 0/4T/UAJ \ 

STATISTICS. FOP- 

\ CAoF . 

SrATXo/J / 


coizrrc 

Total. 

/Z/HS 


TOOT TPFOO^H /ZOO 
Fo*z C-ACH 
ZrL£S\Sc/2C/)iE/JT 
Type 


P&zajt 

CF&ZT 

Lcvea 



8.0-514 
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DESCRIPTION 


SUNGRV 



SUNGRV 
Page 1 
Octobei 


Subroutine SUNGRV evaluates the accelerations of 
the satellite due to the gravitational potentials of 
the Moon, the Sun, and the Planets, Venus, Mars, Jupiter, 
and Saturn. Intermediate data is stored in COMMON 
MOONGR for including the effects of these potentials in' 
the variational equation computations in VEVAL. 

* ‘ • ^ . 




.1 



of 2 
1972 



^ODUCIBILITY op rmn 
44 -?AG£ XS Popj^ 
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KAME SUNGRV 

PURPOSE TO COMPUTE GRAVITATIONAL ACCELERATIONS DUE TO 

11 MOON 

• - . ' 2) SUN 

3) VENUS . ' 

' 41 MARS . 

5) JUPITER 
.6) SATURN 

CALLING SEQUENCE CALL SUNGRV(OX) 

SYMBCL TYPE DESCRIPTION 

OX DP INFUT C. OUTPUT - ACCELERATION VECTOR 

13) • 

SUBROUTINES USED DOTPRD 

COMMON CLOCKS- CEPHEM MOONGR INT8LK XYZ 

‘■INPUT FILES NONE 

CUTPUT FILES ’ NONE 




20 


SUBROUTINE SUNGRV(DXJ % 

IMPLICIT REAL*8 (A-H, C-ZJ 
01 PENSION DX (3 1 

COMWON/CEPHEfVUVnnnY ( A, C> ,£0(644 J 

COMMON/ MOONGF/OPXUV( 6 >. RHO*-* ( 3. o).PHOSO( 6),RH03(6) 

COMMON/ I NT ELK/ T HOOT I { <5>,GM3( 6) . IOC 101 1 ♦ N BODY 
COMMON/ XY Z / X ( 6 ) * Hi RSO » JSAT* IF0RCE(2 > 

00 20 N= I • NB CO Y 

OPXUV (N) =OOTPRC ( x, UV800YI 1*N>) 

RRBCDY=UV8nDY(4,N)**2 

RHOSOIN) =RR0CDY-2. 00 C *npXUV (NI *UVBOOY( A ,N ) ARSO 
RHO3(N)=RH0SC(N)*DSQRT(RH0SQ(N > ) 

DO 20 I =1 ♦ 3 • 

RHO M{ I « N ) ~ X ( H-UV0ODY (I *N >*UVBOOYI 4 ,N ) 

OXC I)=DXC I- ) -CM 3 IN) * <RH3M( I,N )/ R HO 3( N ) +U V BOD Yt I ,N) /SRBOOYI 

RETURN 

END 


SUNG 

SUNG 

SUNG 

SUNG 

SUNG 

SUNG 

SUNG 

SUNG 

SUNG 

SUNG 

SUNG 

SUNG 

SUNG 

SUNG 

SUNG 

SUNG 

SUNG 


2Q 

30 

31 
3 2 

33 

34 

35 
3* 
37 
? A 
30 
AC 

M 

A.? 

43 

44 

AS 


— 8 -*- 0 —- 5 1 7 
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SURDEN ' V' : 

m ' r r , * 

DESCRIPTION : 

This subroutine computes the gravitational acceleration 
due to surface density blocks and the partial derivatives of, 
this acceleration with respect to adjusted surface density 
-parameters. These partials include the constraints affect- 
ing the adjustment of surface densities as described in 
the GEODYN Systems Description, Volume 1. 



SURDEN 
Page 2 
October 


kamc SUROEN 

ENT RY PCINT PURPOSE 

.SURDNl INITIAL 1ZATION . ' . ' . ^ 

'SURDEN TO COMPUTE : 

1) T HE C^AOIrNT OF THE POTENTIAL DUE TO SURFACE 
DENS IT IES 

2) THE PARTIAL* QF THE GRADIENTS WITH RESPECT TO 

- ‘ THE SURFACE DENSITIES FOR THOSE DENSITIES TO PE 

ADJUSTED 

x 

CALLING SEQUENCE CALL SU RON 1 ( DENS E* AR E A* CENTER , P APT, OENCON) 


SYMBOL • 

TYPE 

DESCRIPTION 

DENSE • 
<11 

Do 

INPUT - 

ARRAY CONTAINING THE SU=f A CE DENSITIES OF 
THE OLOCKS 

AREA 

DP 

INPUT - 

ARRAY CONTAINING THE SURFACE AREAS OF THE 
SUB- BLOCKS 

CENTER 
— t3 • 1 > 

DP- 

INPUT - 

ARRAY CONTAINING THE EARTH FIXED X.Y.7 
"COORDINATES OF THE SUB-BLOCK CENTERS 

PART 
<3.1 ) 

DP 

OUTPUT 

- ARRAY CONTAINING THE RAOTTAI S FOP 
THE BLOCKS TO BE ADJUSTED 

oEnccn 

"< NCONST 

DO 
• 1 ) 

INPUT - 

COEFFICIENTS RELATING CONSTRAINED AND 
UNCONSTRAINED ADJUSTED SURFACE DENSITIES 


CALLING SEOUENCE CALL S U RDEN < FC T. T HETG ) 
SYMPCL TYPE DESCRIPTION 


FCT 

<3) 

DP 

INPUT £ 

OUTPUT - 

ARPAY CONTAINING THE 
X.Y.Z COORDINATES OF 
TO BE UNDATED 

inertial 

THE GRADIENT 

THETG 

DP 

INPUT - 

RIGHT ASCENSION OF GREENWICH 


SUB ROUT INES 

USED 

XEFIX 

YEF IX 

XINERT YINFRT 


COMMON BLOCKS CP AR AM CSTFET INT8LK XYZ • 

INPUT FILES NONE 

OUTPUT FILES .5 NONE 
. t 

FEFERCNCES 


of 6 
'1972 


•GEOQYN SYSTEMS PE* C ™ I P T l 3 N 1 
VOLUME 1 - GCOCYN DOCUMENTATION 
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SUBROUTINE SURCNKDEN 
IMPLICIT P£AL4ta( A-H.O 
LOGICAL CMPGPR. IKNRSW 
DIMENSION 0ENSC(1>.A9 
* • PVEC (3 ) .OP( 3 ) .FCT { 

COM MON/ CP ARAM/NSTA.NM 
- •- NCSE5T , CMPGPR,. IM 1 

'• NCCNST , NDCGNS 

COMMON/CSTHcT/CT hETG. 
COMMON/ INTBLK/THDOTI 5 
■ COMMCN/XV Z/PCI NT (8 I . I 
OAT A NS Jn/4/ 

C INITIALIZE 

NCCN2=NAD J-NCONST 
RETURN 

ENTRY SURDENtFCT .T HET 
IF(NRLnc< .LE.O ) RET UR 
CTHETG=nC0S(THETG) 
STHET Ci-DS IN (THETG) 

C COMPUTE THF EARTH FIXED C 
PVECU I =XF.F IX( POINT! 1 
» PVEC(2)-YEFIX( PO INTI i 
PVEC (3) =POlNT( 3) 

-GRAD( 1)=0.000 
GRAD(2>~0 .000 
GRADC3)=C . 000 
NC-1 

K=NECNC ISAT1-7-NCON2 
K1 = K4-1 
»C2 = K-f NCON2 
00 -100 KK = UNBLOCK 
C LOOP THROUGH 100 FOR EACH 
K»K*1 

00 20 J=1 . 3 

20 PAR < J J =0 - 00 

C LOOP THROUGH 50 COMPUTES 
C THE BLOCK 

DO 50 1=1 . NSUB 
DMAG=0.03 
DO 30 J = 1 ♦ 3 
OP( J)=PVEC (J J-CENT ER( 
3D DMAG=DmaG<-OP (J ) **2 

C=AREA( NC l / ( CM AG*OSOR 
• OO 40 J=1 . 3 
40 PAR C J)=RAR(J)-C*CPC J ) 
50 NC= NC 

DO 60 J = ! . 3 

C C0MOUTF Earth FIXED GR AD I 
60 GRADI J) =GRAC <J I ♦CENSE 
IFtKK.Gr.NAbj) GO TO 
. IF ( .NOT , T NNPSW ) GO TO 
IF IKK .ST. NCCN2 ) GO TO 
C IF CLOCK ADJJSTF.r CD^UTfc 
PART (I ,K)=X INERT (PAR < 
PART (2|K>=Y INERT (PAR ( 


SE. ARF A ♦CENTER. PART, DENCONJ 
-Z ) 


2 ) « D ENC ON ( NCON ST. I ) 

AST.N5TES T.NDIM.M9I AS.NGPCI • NGPC 2 « NGPCOM » 
• LIM2.NBL OCK.NAOJ.NTI OST* NTI OEN.lNNRS.W, 

STHETG ' ; • ■ 

0T .NEONU 6) 

SAT. IFQRCEI 2 ). 


CORD [NATES OF SATELLITE 
1 .POINT (2) ) 

>.P0 INT (2 ) ) 


DENSITY BLOCK 


EARTH FIXED SURFACE DENSITY PARTI ALS FOR 


J.NC) 


T ( CM AG | > 


FNT DUE TO FLOCK AND SUM 
(KXl *PAP( J ) 

IOC V 

1 GO 
TC 

THE INFRTJAL PARTtALS 
J > ,p AP { 2T ) 

1) ,P AR ( 2) ) 


SURD 

S6 

SUPO 

57 

SURD 

SB 

SUPD 


, SUPD 

f .? 

SURD 

A- 1 

SUPD „ 

-6 2 

SURD 1 ' 

63 

SURD 

6A 

SURD 

65 

SURD 

66 

SUPD 

67 

SUPD 

66 

SURD 

6D' 

SUPD 

70 

SURD 

”7 1 

SUPD 

72 

SUPD 

75 

SURD 

74 

SUPD 

75 

SURD 

76 

SURD 

77 

SURD 

7« 

SURD 

79 

SURD 

no 

SURD 

61 

SURD 

no 

oUr-lD 

6 3 

SURD 

8 4 

SURD 

ns 

- SURD 

ns 

SURD 

87 

SURD 

PA 

SURD 

A 9 

SURD 

or. 

SURD 

91 

SURD 

Q O 

SUPD 

9 3 

SURD 

Pd 

SURD 

95 

• SURD 

96 

SURD 

07 

SURD 

9fl 

SURD 

Q9 

SURD 

ICO 

SURD 

lot 

SUPD 

102 

SURD 

1 C3 

SURD 

IP 4 

SURD 

♦C5 

SURD 

106 

SURD 

1 C 7 

SURD 

ics 

SURD 

too 

SUPD 

1 1 0 

- SURO 

11 1 


0 ft, MA 
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PART<3.K) =PAR(3> 

CO TO 100 

C IF BLOCK ADJUSTED THROUGH CONSTRAINTS COMPUTE CDRR CCT T ONS TO 
C PARTIALS FOR ADJUST £0 DENSITIES AN D SUM 
,70 OP( 1 ) -V INERT < PAR U ), P AR{ 7 . ) ) 

OP( 2)=Y INERT (P AR (1 > ,p AR( 2 >1 * . . 

DPI 3>=PAR(3) \ .. 

00 fiO I=< 1 ,K2 \ . 

U=I-K1H 

-PDC C A=DJN CON IKK —NC ON 2*111 
PAPT< 1 * l 1 =RAPT I l . I ) +P CCDA*Or>( 1 ) 

PART<2, I > =PART (2.1 )*° CCDA*OP(2 > 

80 PART(l, I J =PART (3,1 )+PCCDA*DP(3) 

100 CONTINUE 

C CONVERT GRADIENT DUE TD ALL BLOCKS TO INERTIAL AND UPDATE TOTAL 

c ropce model gradient 

FCTU JsPCTI 1 >+x INERT ( CRAO< 1 ) ,GRAD(2) ) * 

FCT t21=FCT (2 WY INERT { GR AO C 1 1 • GR AD ( 2 ) ) 

FCT(31=FCT (2 I+GRA0(3 J 

RETURN 

END 


SUPD 1 1 2 
SURD 1 1 3 
SURD 1 J * 
SUPO 1 1 s 
SURD 1 1 6 
SUPD 1 I 7 
SUPO 1 1 « 
SllRO VlP 
SURD 1?C 
SURD 1?! 
SUPO ! ? ? 
SUPO 12- 
SURD 12A 
SU»D '25 
SURO 126 
SUPO 12'* 
SURD 12* 
SUPD 12° 
SUPD 130 
SUPO '31 
SUPO 132 






y &Ua2 i>£ A J 


t 
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J . ;; SYMINV _ ' r -.., y.-> 

DESCRIPTION . t . ... ... . ..... 

Suborutine SYMINV is a double precision matrix 
inversion routine designed specifically for inverting a 
compressed storage symmetric matrix such as is used by / 

ESTIM. 

The technique used is the method of partitioning. 

The initialization consists of inverting a 1 x 1. The 
routine then constructs successively larger (N x N) inverted 
partitions of the original matrix until the entire matrix 
has been inverted. 

v This routine destroys the input matrix. It also 
requires a double precision scratch storage vector of 
length equal to the row dimension of the matrix to be 
inverted. . 
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NAME 

PURPOSE 

CALLING SEQUENCE 

symbol type 

SUMl OP 

in 

NDIM | 

KLIM \ I 
DELTA OP 

in 


SYMINV 

TO RECURSIVELY FIND INVERSE O" SYMMETRIC MATRIX 
CALL SYMCNVCSUMI *NDIM,NLIM, DELTA)- 

DESCRIPTION • - . . 

INPUT — LOWER RECTANGULAR PART OP MATRIX 
TO BE INVEPTED 

OUTPUT - LOWER RECTANGULAR PART OF INVERTED MATRIX 
INPUT - DIMENSION OF MATRIX 

INPUT — DIMENSION OF PARTITION TO BE INVERTED 
SCRATCH * ' 


SUBROUTINES USED NONE 
.COMMON CLOCKS NONE 
INPUT FILES NONE 
OUTPUT FILES NONE 


REFERENCES 


• GEOOYN SYSTEMS DE SC° I PT I ON • 
VOLUME l - GFOCYN DOCUMENTATION 


SUBROUTINE SYM I NV( SUM 1 , ND IM, NL IM, DCLTA ) 

...DOUBLE PRECISION Sl)«l (1 ),OELTA( 1 ) ... 

C INITIALI7E ^Y FINDING INVERSE OT 1X1 
SUM I Uhl . 0 00/ SUMl { I } 

IF( NLIM.E 0. 1 ) RETURN ' • 

N1=NDIM-1 

C RECURSIVELY FIND INVERSE OF NXN KNOWING TNVERSE OF ( N— 1 ) X( N— 1 ) 
C • THE INVERSE or AN NL IM X NL I M SQUARE PARTITION IS FOUND 
DO 400 N=2,NLIM 
KM1 =N-1 

• -LI-0 • - 

•*’ DO 100 L= 1 • NM1 

ji=o . , 

DELTA C L > = 0,000 • 

DO 60 J=I *L ... 

JL- JI +-L . '* ; 

JN- J I ♦ N * 

♦ • OELTA(L)=OcLTACL )*SUM HJL )*SLT-«1 ( JN) 

60 JJ=Jl+NDIM-j 

IF(L.CO.NMl) GO TO 100 
LPl =L+l 

DO BO J = L Pit NM 1 


SYM I 
SYMI 
SYM! 3 ft 
SYMI 37 
SYMI 3 « 
SYMI 39 
UNTIL SYMJ A r> 
SYMI A I 
SYMI 42 
SYMI A3 
SYMf 4 A 
SYMI 45 
SYMI A 6 
- SYMJ 47 
SVM| Aft 
. SYMI 40 
SYMI FO 
SYMf si 
SYMf 

ft V M J f3 

SYMI ft* 
SYMI f-ft 


8.0-525 


ri r i 



SYMINV 
Page 3 of 3 
October 1972 



’ I«ODUCtBlLITY OP THE 
/eMGWA^'PAGE IS POOR_. 

• t 1 



■ # ‘ * . * 

JN= J1 +H ' 

SYMI 

5A 


JL= LI + J 

SYMI 

57 


DCLTA(L) = DELTA(L ItSUM 1( JL )*SUM 1 ( JN) 

. SVMl 

55 

60 

J1 * J1 ♦KOI M-J . 

SYMI 

SR 

IOC 

LI - L 1 -fNOlM-L . 

SYMI 

50 


JI-N ' - ' 

SYMJ 

M 


NN = N1+N* 

SYMI 

6? 


OO 150 J=1 *NMJ .* 

' SYMJ 



SUM1 (NN)sSUMl (NN J-OELTAC J )*SUM 1 < J1 ) 

SYMI 

t 4 

ISO 

Jl-Jl +NOI M-J 

SYMt 

AS 


SOM 1 ( NN 1 = 1 • C CO / SUM 1 ( N K ) 

SYMI 

55 



SVMl 

57 


DO 2C0 J=I .NMl 

SY«I 



SU**1(J1 )=-DELTA{ J> *SUMt <NN) 

SYMI 

f,C 

200 

J 1 ~ J 1 + ND I M— J • . 

SYMf 

70 


ii=n • * 

SYMJ 

71 


DO 300 ‘ « 

SYMJ 

72 


J1=I 

SYMI 

73 


00 250 J= l . I 

SYMI 

74 


SUMKJJ ) -SUM 1 ( J l J— SUM 1 ( 11 ) *DELT A( J ) 

SYMI 

75 

250 

J1 - J J *NO 1 M-J 

SYMI 

•»A 

300 

U- 11 +NH I M - C 

SYMI 

77 

400 

Nl = N1 ♦NOI M-N 

SYMI 

7 H 


RETURN 

SYMI 

74 


END 

SYMI 

BO 
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TDIF computes the differences in seconds between 
the time systems ‘ 


UT1, UT2 ,UTC » and A.l. 



Tabular informaton relating A.l and UTC is required 
• by TDIF and must periodically be updated. This data is 
available from the U.S. Naval Observatory. 

'' . . a 


Tabular information relating A.l and UT1 is required 
by TDIF. This data also must be periodically update. A 
full description of the method used to update this table 
is available inGEODYN Support Programs, Volume IV. 
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*AME TOIF 

. PURPOSE TO COMPUTE THE DIFFERENCE IN SECONDS BETWEEN ANY 

TWO OF THE- FOLLOW ING TIME SYSTEMS 
A. I. UTCt UT1, UT2 • 

CALLING SEQUENCE X=TD I F { EASE, IN, DA YOl 


SYHPCL TYPE 

base X 

IN I 

t 

OAYC DP 

TDIF • R 
COMMON BLOC <S 


DESCRIPTION ‘ 

INPUT - DESIRED TIMF SYSTEM : 

. <1 = UT1. 2 = UT 2 * 3=UTC» 4=A*U 

INPUT - CURRENT TIMF SYSTEM ; 

tt=UTl. 2 = UT 2 • 3=UTC. A=A*1» 

. * 

INPUT - CURRENT TIME I N DAYS From JAN 0. C O r THE 
REFERENCE YEAR 

OUTPUT - COMPUTED TIME DIFFERENCE IN SECONDS 
IN IT BK 




REFERENCES 


•GEODYN SYSTEMS DESCRIPTION* 
VOLUME % - GF.nCYN DOCUMENTATION 


REAL FUNCTION TDIF < R ASF, IN* DAYC I • TDIF 

DOU*ELE PRECISION D A Y 0 ,REF T I M , Y Mn A Y, D A YS, UTCT , T WOP I TDIF 

-INTEGER RASE.ID(A) TpfF 

COMMON/IN I TEK/ IG1( 55 ) ,NQT1ST*XG2 TDIF 

LOGICAL NOT 1 ST TOIF 

DIMENSION UTCT 15 2) , UT CD I F ( S 2 ) , UTCR T < 5 2 > • A 1 T 1 { b 1 3) .'UTH152), TOIF 

• CJT2 ( 152) .D1T 1( 152 ) TDIF 

^ EQUIVALENCE (31T1< 1 >, AIT1 (15S) I.fCJTICll ,AIT1< 3lO>> t . TDIF 

• IDITI ( 1 ) , A1T1 ( 462 ) ) * TpIF 

DATA 10/2,1,4,3/ TDIF 

DATA TWO* I /6.2B313 5D0/ *TOIF 

DATA LLIMIT/S26/ TDIF 

C TABLE A.1-UT1 — AT 10 DAY INTERVALS FROM 570017 TO 720303 TDIF 

« DAT A Al T 1 / TP1 F 


• -•1645*-* 1513. 136 j*- . 1 1 <33, - . 1 01-3. -.083 7,-* 064 A,- * 04 SB . 0 270 * TDIF 

• -.9036. c .0C9B. 0.C28S, 0 ,04S7, 0 • OM 3* C . 9 7JU , 0. 094 0* Q . I 1 1 1 ,0. 1 ?77, THTF 

• 0 .1450 • D, 1629*0. i 3 1 5* 0* 1993. 0. 21 76. 0.2351 .0. 251 7.0*266S.C*27«»Q, TDt F 

• C .2 59 4*0*2 99 l, C. 306 2. 0.3131.0.3169*0.3249,?, 33 10, 9. 3370. 0.7453, Tri e 

• 0.3 55 *• 3 *3 66 2* 0.3794. C* 3 l *4 2, .ACO 3, 0*4261*0*4471,?, 45 9 *, ?, i 7A = , TDIF 

• C .4920*0 m' t 5 39 3*0*5247, G. 54 Q 1 . 0*55^9, 0*57?7, 0,536b. 0*6C00,0.f-! 26. toi c 

• 0*626 7* 3.£405«C*654P,0.fn94,3.>tP93,0* 69H 1*0* 71 15*0. 7243,0*7364* TD! F 

• C .7471 , C .75.72. c. 76c 0* C • 7 7 ”» ■!. C • 7* ? ft . O • 7 H6 9, C . 741 7 , 0 • 3 .* 0 7 . ' . 5f =<*, Tf>ic 

C *9202. 3 .3 31 Q, C- pa 5 o, C . . c . , c. ^9<-S ,C . 7 1 1 6 . 0 • ">» O? , ? . Oi. 7 4 , Tf>I c 

« • O .9 6 30, J . 5 79 o • C * 9 9 4 £ , 1*0* "MO, 1 • C2C 9, 1*0336,1, "AS 5 *t#D?C5*l,T 7 63» toit 
. 1 .092-5* I *1053* 1,12 3 2* 1 « 1-330* 1*1543, 1* 1706,1 *1*94,1 •2007,1 ,21 7. 4, TDIF 

• 1 *2 253* 1 *2 24 3 , 1*24 1 6, 1.2479, 1 • 2526, i ,25^3*1 ,2596, l ,2634, t , 2 f 39* TOI F 


20 

31 

32 

33 

34 

35 

36 

37 
? 8 
29 
AO 
41 
4 ? 

43 

44 
4 >=i 
4 6 
47 

4 « 
40 

SC 

= t 

c. 2 
e 7 

5 4 

55 


8* 0-52*8 
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i .««. .. »6.. i. 3 o«. i . ««. ZZ : 

J.3947,1 .4 094* 1*4230* 1. *30-. • _ * t .. 5?5 S, 1 . 5869 • I .5978, 1 . 61 CS. 

1.4988. 1 .5139. 1. 53 20. 1 • - aa'oc.I .6672.1.6725,1. 6783, 


TOI F 
TO! F 
f r i f 

TDl F 


1,0758. I.e85l, 

1 . g gt7. 2 . Cl 1 8 . 

2. CV33. 2.C994. 


2.14 25, 
2. 2605 
2 . 3746 


2. 1 553. 
2 . 2 £6 4. 
2. 3S72. 


► 1 .7953.1 .3 10 3. I* 82 39.1* 83 6 5/ 

DATA B l T 1 / 

, 1 .5497. I .£6 20. 

, 1 .962 4, 1 .9701 « 

. 2.0823. 2.C383* 

• 2.1323. 

• 2.2516. 

. 2.3632. 

. 2.4915. 

2.594 8, 

« 2.6973. 

. 2.8581. 

. 3 .9346, 

. 3.2079. 

. 3.3103. 

. 3.4711. 3,4954. 3*5 164, 

. 3.6457, 3.6667, 3.6003, 

. 3.3411, 3.5643, 

. 4.0097, ..C2 06, 

4.1554, 4.1BC0. 


1 .9015, 
2.0235, 
2 . 1046, 


2,5091, 2.5263, 
2.60C5, 2.6C04, 


2,3029. 2.3155, 2. 3236. 
2.4026, 2.4192, 2.4162, 
2 . 54 23 , 2.5567, 


2 . 56 °5 1 


*;e ss se i;i: i;:;!? 


, i . 7665. 

1 .7813. 

TDIF 

TDIF 



TOT F 

1 . 931 4 . 

1 ,9468. 

TDIF 

2.0508. 

?.C724. 

TDIF 

2.1165. 

2,1237, 

TDI F 

2 . 21 69. 

2 • 2 ?4 6 * 

TDIF 

2. 3399, 

2.3614, 

trie 

2.4542, 

2.4731. 

TDIF 

2. 58 C 6 • 

2 ,58.57, 

TDI F 

2. 661 6 . 

2.6789, 

TDI F 

2. 8253, 

2.74*7, 

TDIF 


3.2412, 


3.2261. 

3,3253. 3.3417. 


3. 2526 
3 . 26 C 4 


3.2622, 3.2744 

1.3610, 


3.1565, 1.1076* 
3. 2859 , 3. 2°51 » 
3.4268, 1 .44 07, 


3,4035. 

3.3520, 3.56-.1. 3.£?50. 3.5051. 3.8252. 
3. =,8*3. 3.71 1 1. 3.7352. 3. 7608. 3. 78«6 . 3.3172. 

3 . >3 6 7 0 . 3.5097. 3.6325. 3.9541. 3.9744 . 


3 • 9°28 

4.0574, 4.C740, 4.0918, 4.1105. 4.1216. 
4.2300, 4,2553. 4.2825. 4.2095. 4.3349, 


4.C414, 

4.1554, a.io^w, 4.2049, 

4.3592, 4.2817. 4 . 4 059. 4 . 4291 , 4.4536, *.4781. 

0A -4 ^5497 « 4.5744. 4.6015. 4 . 62 95 , 4 . 6 57 9 • 

4.7639, 4.7929, 4.0144, 4.0333, 4.8505, 

4,9195, 4.9398. 4.9617. 4.5350, 5.0110. 

5.1765. 5.2C31 e '’" Q, ' 


4. 5021 . 4. 


TDI F 
TP! F 
TDIP 
TD1F 
TDIF 
TO I F 
TDIF 

TO 1 F 

4.5259/ TDIF 
TDIF 


4,0364, 

4.8505, 4.8669, 
5,0372. 


4.7150. 4.7428, 
4,0834, 4.9C05, 
5. 0651 , 


5.1211, 5.1487. 

5.3223 
5.529 0 


5.C932 . 
5 . 2 c 9 7 • 


. 5,7252. 

« 5 .067 3 . 

574 2. 

• 6.2790. 

• 6.4923. 
» _ 6 .663 1 . 
V 6.857 4, 

• 7.0710, 
.7.2963 


5.1487, 5.1765, 5.2Cii. 5,2231. S-2524. *•***%' 

c uAi 5.3721, 5.3951 . 5.4210 , 5.4476. 0.4745. 5.5,15. 

6*5568* 5.5 8* 5, 6.61 39. 5.6404. 5.6644, 5. 6065. 5.7C'*6. 

5.5568, 5.58 5, 5<790Q , 5 . eC 09, 5.0200, 5.3471, 

5.9652. 5.9923, 6.02CO. 6.0477, 


5.7422. 5. 7583, 5.7742, 
5. *891. 5.9128. 5.9384. 


6.306*. 6,3-24, 6.3567. 6.3606. 6.4 6. 6.4631. 


6.5175, 
6.6341. 
6.8337 , 
7.0955. 
7.3270, 


7.5261, 7.5ae6. 
7.6926, 

7.921 3, 


6.5422. 6. 5673. 
6.7001, 6.7295, 
6.9 10P 


6.6052. 6.6243 
6.7789. 6,8047. 


6.2523 

6.4604, 
6.6436, 
6.0311 . 
7 .0464 • 


6.5880 
6.7539, -- 

6.9352, 6.9673. 6.9940. 7.0212, 

7.1707. 7. 1467. 7.1744. 7.2042. 7.2330. 7.265*. 
7.3«B, 7.39C3, 7.42C2. 7.4431, 7.47ol. 7.5-15, 

7.‘=ae6. 7.5M7. 7.587*. 7.6074. 7.6263. 7.6470. 7.5636, 
y.ZV. 7.7470. 7.77*6. 7.M51. 7.3337. 7.6632. ■ 

7 . H C3, 7.0700. 8. POP*. 3. 0331 . 6.0663. ,-3953. *' i2 - ’ 

8,2464, 8.2736, S.31C4, 6.3421* 0.3 8 


, 8.1527. 8.1020. 0.2143 

DATA C1T1/ teiQT 8.5136. 0.5365. 0.5503. 0.5749. 

. S.4050. fl-4350. 8.4673. 8.4803. 8.5136. .. 7 » 3 , 

8.6082. 8.6,66. d..4j . «•- * 8.0285. 3.0875 . 3.0854. 

3.407-. -8.ro. 0.14*3. 0.1563. 0.1 =35. 

q.ijfl. 0.-4517. ^*'* 440 . 

9. 54oq, 9.5743, 9.59*2. 0.6?13, 0.4445, 

Q. 7560, 9.T873, 9.0564. *•*??*• 


6.7770. 
9.D122, 
9 . 2 23k 4 , 

Q . X it s • 
9.67C4* 
0.9294 


9.C380. 9.06^5* 
9.25 9 6* 9. 2 £47, 
9,4032. 0.5290. 
9.6975, 9.72i3. 


O to 7 . 0,7 i -» .1 . 000* . -r , ' ' ' _ 

9* 96 4 8 . 0*9002. 10. C20 1 . 10 .0556. 1 0.C9 ?4. 19.1137,10. 14 4 


10.176 3 . 10 . 2114 . 10 . 2 431 , 10 . 2704 / 


TDIF 

TDIF 

Tf'l r 
T D!F 

TPI F 

TDIF 

TDIF 

TDIF 

TDIF 

TDIF 

TDIF 

TDI F 

TDIF 

TOI F 
TDI F 
TDIF 
t r> t r 

TDIF 

TDIF 

TDIF 

TPt^ 

TDIF 

TDIF 

TDIF 

TDIF 

TDIF 

TDIF 

TDI F 

TDIF 


f 6 


ffl 
k a 
60 
61 
62 
> 3 

64 
f 5 
66 
67 
«. a 

69 
79 
7 1 
72 

T 1 

74 

75 

76 

77 

76 

79 

°C 

61 

02 

«3 

0 4 
®5 
06 
07 
a a 

«o 
06 
91 
0 2 
03 
94 
a a 

96 
07 

C0 

on 
’00 
’ ?■ 1 
102 
’ 07 
: 4 

’ 05 
-.0 6 
, r 7 
, o» 

, r n 
Mr 
* 1 l 


. 8 , P - c ^ 0 
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C DAYS FPOM JAN 1, *1966 FOR UTC CLOCK CORRECTIONS 
DATA UT CT / 

• -3566.208 3 3 333333D0 »- 3565 . 2C 83 3 33 333 300 , -34 4 5. 208333 333 330 C • 

«-34 13. 2 0 8333 23 33 3D 0. -23 9C .20 83 23333 3?0'0. -324 3. 2P3373 3. 133300* 

- *-33 34. 22 8 33 223 33 3D0, - 2 >68 • 20 83 33 2333 30 ), -3 21 5. 2083 33 333 3 300 • 

• —31 66.20 63 33 33 33 20 0, - 31 31 .20 83 3 3 333330 0.-3117. 208 313333 330 0. 

• -3 1 03.20° 3 33 3333 20 C , - 2C6-9 . 20 e3 23 3313300. -3061 . 2CK 333 333 330 0 . 

• -2^93.20 3 3 3323 332D0 ,- £0 77 , 20 33 332333 30 3 , -2942. 203 2 ’3 33* 3300 . 

• -29 07.2 08 3 33 33 33 20 u ,— 23 8 5 .20 ?3 3 32333 30 i . -2 872 » 2083333332 30 C . 

• -'2623.2083333333200. - 2760 .2033333333300, -2739. 2083333333300 • 

• -27 25.2: 83 3313 33 3D0, -*627. ZC S3 33 333330 *-259-2. 2 0 83 33 333 3300. 

• -2564.233 333 33333D0. - 2829 . 20 93 33333310 2, -250 1 • 2093*3333 3300 « 

• -2340. 2 093 33 3333 30 0, - 2 i!9. 20 83 3 3 3333 30 1, -2 2R4. 20 8 3.73 33 3 3300, 
•-2249.2C833333332D0, - 2225.20 83 33 32 3330 0 . -2 207. 206333 333 3 30 0 . 

• -1 8 26. D. ’ , -1614. D0.-14 6C.76931175D 20 0,-792. 00. -73C. 94 366197181 00* 

. •-640. DO, -487 ,00. -4 57 . HO 3c 5. DC .-306.00.-1 94.00.-122. DO • 0. ODD . 

•761 •CDC.2191.003.2373.CC0.9999.0O0/ 

C A. 1 - UTC AFTER EACH UTC CLOCK CORRECTION * 

OAT A UT CO IF/ 

•-7.61676E-1 ,-7.5 9279 E-l .-6.614C l E— 1 .-6. 3 29 26 F- 1,-6, 04843F-1 • 

• -5. 6762 3E- 1 . -5.4 25 43E-1 ,-4 , 745 3RE-1 ,-4.1 9671 F- 1 . — 3. 6 7 990 E- 1 , 

• -3. 259P5E- 1.-2 .964 14£-1 ,-2. 706 76E-1 .-2.4 3C 70E-1 ,-2,061725-1. 

. 1 * 2672 OE - 1 , -8 • 7656 1 E —2 • - 3 . 4 55 9 7 2—2 , I.B4152E-2. 5.684976-2, 

•* • 8.8329702, 1.5C575E-1, 2.240F1E-1. 2.63269F-1. 2.96013E-1, 

4 • A . 02225E— 1 , 4.513 82 E — 1 , 4.9492901. 5.46S47E- 1, 5.9271RF-1, 

• ‘ 7. 5940 9F - 1 « 7 . 976 0 1 E — l » 8.48046E-1. 8.990915-1. 9.31595E-1. 

• *». 76*1 . i.AAi loc-n,, 1.68407F-O. l.a9?64=-0. P.7T5.30F-0 . 

*. 2s £00f.?S-0; 3 .-0 18615 - 0; ? t 31660f-0: 3. 36650.5 - 9 t 6?55*>F-C ? 

• 3.752C9E-0, 4.C1910E-0. 4.1O045F-0. 4.350 1 05-0. 6.2198CE-0, 

' • 1C.C343S17E-0 ,1 1.0342317E-0/ 

OATA UTCOT/ 

C A.l - UTC RATE OF SEPARATION AFTER EACH UTC CLOCK CORRECTION 

• t. C/551 ”- 3.6 .489895- 4,3.17592E-A.2.95O06E-4,4.1OO2CE-4.3«6279A F.-\ 

• 6. P5787E--+ . 7 .1 15 82 £-4 . 6. 4654 6G -4,6.28629c -4,5. 409P3E-4.5.A27C9F-4 

• 5.43303E-4,6.0 35 10E-4,9.43aPCE-4.9.0732 2£-4.9.34 46 5E-4,Q.53572E-4 

• 8.773 3?E-4.a.l99 93E-4, c ».62l£lF-G,8.4929PE-4,Q.137C7E-A,9.1029£F-A 
r8.T97 19F-4 , R.330 25F-4 ,8.3 74 ICE -4 ,9.C6216E-4«9. 347CC*E-4,9.1 1 j 2 IF — 4 

• d.66292 C-4 , 8 .6 93 35E- 4 . 8 70 1 4F-4 . e. 931 54£— 4. 8. e63 54F— 4 , l . 25857p— 3 

• 1.2 871 7E-3 , 1 .29543E-3 ,1 .1 209IE- 3,1 . 1 2030E-3.I • 2975CE-3 , 1 .29392E-3 

— . • t .29664 E-3. 1 .294 240 3 . t .2952 5E -3. 1 .295 DOE- 3.1 . 2 95 97E-3. 1.29631 G-3 

• 2. 5686 32 — 3, 2. 59 20 C£— 3.0.0. C .0/ 

DATA NUTC/52/ . 

. I F { NOT1 ST ) GO TO 5 ' v. . 

NOT 15T=. TRUE. ' . • 

‘ . RFFTI»/=VMf)AY<660 10 1. 0 .0 .00 1 ♦ . 

• : . LIM!T=LLf mjt-I v ' 

5 TD1F=0. ' 

IFCeASF.E9.IM RETURN . ‘ /* *-■ - ‘ . 

IFC 0ASF.GT . 4 .OP . IN . GT .4 1 RETURN 
IFC eASE.LC.G..OR . IN ,L£ .9 ) RETURN 

DAY S=DAYO-RCFT I »4 .* 

c TIME CORRECTIONS IN PR PER ' 

C UT 2— UT I TO JTl-4,1 to A.l-UTC 

11 a IOC IN) ; 

12 = IOC ilASE 1 • ' V ‘ 

JI=*tNC (11.12) 


TDIF 

TOIF 
TOT F 
TP1F 
TPI^ 
TCI F 
TOT F 
TP l F 
TP IF 
Tp J F 

TCIF 
TCIF 
T P I F 
TP I F 
TpIF 
TP1 F 
TPIF 
TPIF 
TOTF 
TPIF 
TCIF 
TPIF 
TPIF 
TPIF 
TDIF 
TOIF 
T DTF 
rn j f 
TOIF 
TDIF 
TDIF 
TOIF 
.TDIF 
.TOIF 
.TPIF 
♦ TPJC 
.TPIF 

,TPI 9 

. T r i ^ 
.TDIF 
TDIF 
TDIF 
TOir 

TPIF 

TDIF 

TDIF 

TDIF 

Tpir 

TDIF 

TPIF 

TDIF 

TPIF 

TPIF 

TDIF 

TDIF 

TOIF 


112 

It? 

1 14 
1 1 «. 
\ 14 

; 17 
* : ° 

M q 
' i ? o 
121 
1 22 
12? 
t 24 
125 
1 ?6 
1 27 
12 ° 
I 29 

* 30 
» *1 
132 
I 33 

134 
1 75 
136 

1 ? 7 
na 

t 80 
! 4 A 

1 4 I 
142 
1 43 
’44 

» e. s 

1 4 f- 

* 47 
I4P 
1 4Q 

1 5P 
151 
1 52 
153 
144 
155 
1 56 
157 
1 50 
1 59 
lftO 
16 1 
162 
1 A 7 

164 

165 

166 
1 67 
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J2=«AX0< I 1 > 1 2) 

C START CORRECTION CALCULATION WITH SMALLER TIME RASE 
CO TO (15 » 20 .30 .53 > . J 1 
C COMPUTE UT2-UTI 

10' TWOPIO=T^OPI*( DAYS-. 201D0 >/365 .2A22D0 
FOPPID=2 . *TWCP ID ' 

TOI F=TOIF + .022*SIN(TWCPTD>-.01 2 * C OS < T WDD I Ol 
*• • -.0C6*SIN (FORD ID M-.007*CCS(FORPID) 

C TEST FOR OUTPUT TIME SYSTEM 
IF< J?.FO. 2) GO TO SO 
C COMPUTE UT1-A.1 

2D DT=(DAYS*-303?.0DG)*t.CD-l 

|=MIN0(LI MIT.MAXK 1 • . CT ) 1 
DT=CT-FLD At ( I ) 

TDI F=TDIF~A1T1 C Il-DT * ( A IT 1 ( I + 1 >- AIT 1 ( I) ) 
JF(J2 .’e 0.3) GO TO SO 
■C CCMPUTE A.l-UTC 
30 DO 40 1=1 . NUT C 

IFICAYS.LT .UTCT ( I«- 1} ) GO TO 45 
4C CONTINUE 
I*KUTC 

*45 TDI F = TDIF«-UTCD IFC I ) 4UTCRT ( t ) *< DAYS-UTCT< H ) 

C SET DIRECT I ONI OF CORRECT I CM 
SO IF( !1 .EO. J1 >TDIF=-TDI F 
RETURN 
END 


TDIF ***> 
TDIF 9 
TDIF J7f 

TDIF 171 
TDIF 17? 
TDIF 172 
TDIF £ 76 
•TDIF i7*> 
TDIF 1 7* 
TDIF 177 
TDIF J7P 

TPI f 17 R 

TDI f 1 PC 
TDIF 1P1 
TDIF ip? 
TDIF IP? 
TDIF 1?A 
TDIF 1 P.5 
TDIF ie*> 
TDIF 1P7 
TDIF 1»? 
TDIF 1PR 
TDIF IOC 
TDIF 1«1 
TDIF jo? 
TDIF to? 
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* 

TIDAL . . . . r. v ; V,-.' 

DESCRIPTION 

TIDAL evaluates the acceleration on a satellite 
caused by the Earth tidal bulge resulting from Lunar 
and Solar gravitational effects on the Earth. 
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fame 

PURPOSE 

CALLING SEOUENCE 

SYMBOL TYPE 

DX OP 

(3) 

SUBROUTINES USED 
COMMON BLOCKS 
INPUT FILES 
CUTPUT FILES 
‘•REFERENCES 


TICAL 

TO COMPUTE ACCELERATION DUE TO SOLID EARTH TIOAL 
BULGES CAUSED PY LUNA 5 AND SOLAR GRAVITATIONAL 
EFFECTS ON EARTH. USES ONLY <2 IN SPHERICAL 
HARMONIC EXPANSION 

CALL T I CAL (OX > ” 

DESCRIPTION * - 

INPUT L OUTPUT - SATELLITE ACCELERATION VECTOR 

NONE * : * ' 

CEPHEM INITBK INTBLK MOONGR XYZ 

NONE 
NONE 

•GEODYN SYSTEMS DESCRIPTION* 

VOLUME 1 - GEODYN DOCUMENTATION 


SUP ROUT I N E TICAL(DX) 

IMPLICIT OEAL*Q (A-H.C-Z) 

LOGICAL NOT15T 

DOUBLE PRECISION <2. K 2. LAMBDA 
. -DIMENSION CONST ( 2) .AC CEL ( 3 ) . DX ( 3 I 
COM VON/CE P H£M/UVm DY ( 2i I . EO ( 64 A ) 
COMMON/ I N tTeK/ ,I61(.5M I NOT 1ST 


COMMON/ I NT 2LK/THCOTS ( 3 » . GM . A E. A E SO ( 4 > , R A Ti OM ( 53 J • K2 • K3 * L AMBQ A . 
• TORE^T 

COM^aN/ MOnNGR/DRXUV ( 6 ). PHQM ( 2. 6) ,PHnSQ( I 2) 

COMMON/XY Z/XYZ ( 6 ). P . R SO . I SAT . I ^ORCEt 2 ) 

IF (NOT 1ST) GO TO 10 

DO 5 1=1*2 

*5 C0NST( l)=K2* AE*RAT IOM ( I )*0. SDO 

NOT 1 S T = . T PUE. 

io k=c 

DO 100 11 = 1.8.4 ' 

• K=K*l • ; "V 

DP=CPXUV(K ) /R 

*>P3=3.CO3-|S.0D0*DR* *2 " 

DO 20 1=1 . 3 1 ■ • . : . 

J=1 1+1-1 * ■ 

ACCCLf I ) =’JP*6.0DC*iJVeOOY( U)4Po 3 * XYZ( I )/R 

-RAT IOA=( AE/R )**4/JV3aCY( J1 )**3 

on too t=i.3 

toe OXC I IsOXC I )*ACCEL( n*C0NST(K)*RATIP4 

PET URN - 

END 


8.0-533 


2P 

30 

21 

32 

? 3 

34 
3 5 

35 
37 

3 0 
?o 
A<? 
4) 
4? 

4 3 
*4 
a 5 

46 

47 

4 R 
4? 

so 
= l 

5 3 
5 4 

ss 
56 
S 7 
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KAME 

ENTRY PCI NT 
TRUEP 
TRUEP 


TRUEP 

PURPOSE 

I NIT I AL I? AT ION 

TO ROTATE TRACKING STATION COORDINATES TO .ACCOUNT 
FOR POL AR WANDERING 


CALLING SEOUFKCE CALL T R UEP l < ST AX Y.Z ) 
SYMBOL TYPE DESCRIPTION 


STAXY2 0° 
(3*1) ' 


INPUT - TRACKING STATION CARTESIAN COORDINATES 


CALLING SEQUENCE CALL TR USP ( DA Y , l ST A ) 
SYM0CL TYPE DESCRIPTION 


...DAY 

t 


OP INPUT - OBSERVATION TIME IN DAYS FROM JAN 0.0 OF 

THE REFERENCE YEAR FOR THE ARC 


TSTA 


• INPUT - STATION INDEX 


..SUBROUTINES USED 
COMMON BLOCKS 
INPUT FILES 
CUTPUT FILES 
REFERENCES 


POLE 

TRUPOL 

NONE 

NONE 

•GEOOYN SYSTEMS DESCRIPTION* 
VOLUME 1 - GFOCYN' DOCUMENT AT I ON 



SUDROUTINF TRUEPKST A XY 7 > 

* . IMPLICIT qPAL»a (A-H.C-Z) 

DOUBLE PRECISION MATRX(3.3J 
OI MENS I ON STAXYZI3.IJ 
* COVFCN/TRt;PCL/ TRUE ( 3 > 

DATA MATPX/1 .00 . 3*0. DC. 1. DC . 3* 0 .DC. I.DO/ 
RETURN 

ENTRY TRUEPI CAY. 1ST A I 
c COMPUTE ROLE COORDINATES 
CALL POLE ( X • Y # D AY ) 

C POT AT IT* matrix'. 

MATPXI 1 • 3 I = -X 
MAT PX 12*1) ~ X *Y ' 

MATRXI2.3J = Y • 

MATRX (3. I 1 = X 
MATRXC 3.2 > a -Y 


TRUE 

TPU P 

TRUE 

TPUF 

TRUE 

TRUE 

TPUF 

TPUF 

TPUF 

TPUF 

TPUE 

TPUF 

TPUF 

TPUF 

TRUE 

TPUF 


8.0-534 


AO 
At 
A2 
6 ■* 
AA 
AS 
AS 
A? 

A« 

AO 

*0 

^5 
CL 1 

FA 
F K 
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C ROTATE COORDINATES 
DO ICO 1-1*3 
TRUE(I) = 0.C0 
00 100 J=1 ,3 

TRUE( 1) = TRUE (1) 4-MATR X ( I , J > * ST 4 X Y7 ( J . I ST A 1 
100 CONTINUE 
RETURN 
ENO 


TRUF 5* 
TRUE 57 
TPUF 6* 
TRUF 
TRUE 6C 
TRUE *1 
TRUE cl? 
TPur 63 
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•/•••.; :• -twosta • ; ; v- 

DESCRIPTION ■ 

Subroutine TWOSTA computes the residuals and partial 
derivatives for observations involving two tracking stations. 
Subroutine UPDOWN is used by TWOSTA to compute up- and down- 
link signal transit times necessary in the computation of 
precise transmission and transponder relay times. The 
partial derivatives and calculated measurements are sums 
and/or differences of equivalent range and range rate 
quantities computed by subroutine PREDCT. 

« 

The observation types by program index are: 

1 27) VLB I time dalay, t 

6 

28) VLB I fringe rate, 

» 

29) Two-way average range rate, p 2 , and” 

30) Three-way average range rate, p^.. 


* 
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; NAME TWOSTA 

ENTRY PCI NT PURPOSE 

TWOSTJ INITIALIZATION 

.. TWOSTA TO COMPUTE MEASUREMENTS £ PART I ALS FOR VLB! £ 

AVERAGE RANGE RATE DATA 


, r CALLING SEQUENCE CALL T W OST 1 ( OMPXO • NPARM » 


SYMBOL 

TYPE 

DESCRIPTION 


. PMPXO OP V 

(NPARM* 1 1 

OUTPUT 

- MEASUREMENT PARTI ALS WITH RESPECT 
EPOCH PARAMETERS 

TO 

NPARM 

t 

INPUT - 

* 

MAXIMUM NUMBER O c PARAMETERS PER 
MEASUREMENT 


CALLING SEQUENCE 

CALL TWOSTA <1 STA. DAY* , R£ SI O .DATA SVO 


SYMBOL 

TYPE 

DESCRIPTION 


-■1ST A 

I 

INRJT - 

STATION INDEX 


DAY? 

Do 

INPUT - 

MEASUREMENT TIME IN. DAYS FROM JAN 

■ 1L 

C.O OF 

PESIO 

0° 

INPUT - 

MEASUREMENT RESIDUAL (O-CJ 


CATASW 

L 

INPUT - 

.TRUE. WHCN POSITION OF SATELLITE 
•FALSE. WHEN MEASUREMENT OAPTIALS 

WANTED 

WANTED 

SUBROUT INE5 

USED 

GR HR AN 
PRCOCT 

UPDOWN ORBIT OB SOOT 

PROCES 

COMMON BLOCKS 

CONSTS 

COR 01 CUVECT PRESLK 


INPUT FILES 


NONE 




—OUTPUT FILES NOf'f 

• GEODYN SYSTEMS DESCRIPTION* 

- . . VOLUME l — GEOCYN DOCUMENTATION 


SUPROUT I NF TWOST 1 ( PMP XO ,NOARMJ 
IMPLICIT REAL*di < A — H • C- 2 ) 

LOG I CAL* 1 VH r CHN « P PE P R*7 « S A V EPF* 

LOGICAL r> \TAGW .L^.GIC 

INTEGERS? MTYPC.NMf a$,PR-TYP,I SN^.ISAT 
INTEGER R'CNO 

DIMENSION PMPXC< NOARM ,1 J.RFNDXI 21 


’ — 8T0T537.'"' 


TWO* 

A O 

TWOS 

so 

TWRS 

si 

TWOS 

r '? 

TWOS 

S ** 

TWOB. 

SY* 

TWOS 

Af 



TWOSTA 
Page 3 of 7 
« October 1972 


REAL C 1 D. 01 U.D 2 D.D 2 U. RFNOX 
• COVMON/CONSTS/OPI* DT WC^l .OPAO.CRSEC 
CowMON/craoi /t ,w ,u. t nct g. pfrht < a > , aphti a ) « prdi a> 

COMMON/CUVECT/UHAT ( 3. 2 ) ,XY 7 ( 3. 2 ) . RX YZ < 3, 2 I . Rr NV( 3 *2 } .RI 2)* 

• PSQ< 2 ) . XYSQ( 2 ) 

COKMCN/PREBLK/CAYS AT , GHS. DAY!, 5 I G . 020 . D 2 U , D ID , . 0 1 U , I S N. «T YPE , 

• KMEAS* I S AT, PRET YP . ISN 2 • VHFC HN, PHEPRO. RECN 3 
DATA C/ 2 . 09792503 / 

EQUIVALENCE (DST A 1 . DA Yl ), <nsTA 2 ,D 2 D) . (FRE 0 .D 1 D ) 

EQUIVALENCE (RFNCX ( 1 ) .REFRAC > 

C INITIALIZE 

NP 3 =NPAR «-3 
NP 6 =NPARM -6 
RETURN W 

. ENTRY TrfOSTAaSTA,OAY 2 .PES 1 D.DATASWl 

1 F( •NQT.DATASW > . GO TO 100 .* 

C OBTAIN EPHE^ER IS 

CALL PRcDCT ( 1 ST A.DAY 2 .RESID. PESID 2 .DATASW) 

RETURN 

C SET SWITCHES * 

.. ICO -IF( .NOT ,PRE PRO ) PRETYP^O 
i IPPE 1 =PRET YP /1 0 

IPPE 2 =PRET YP-I PRE 1 * 1 0 

SAVEPP=PREPRC . .. ' . 

1 ST A 2 = I SN 2 
KTYPE=MTYPE -26 
F= 1 .UOO 

.IF(PWEPRU) GO TO ( 205 . 200 . 303 . 300 ) .KTYPE 
GO TO ( 260 . 260 . 4 C 0 . 40 C) .KTYPE 
C VLB | DATA 
200 F=rSTA 2 

205 XFf IPRE1 .LE.O) GO TO 240 

DST fil —DAY 2 ■ v 

C COMPUTE VLSI TRANSIT TIMES * . ’ 

CALL UP 0 DWN(CAY 2 ,OSTA 1 , DST A 2 .I « ODC* ISTA. ISTA 2 * ISAT..FALSE..RCOR 

• RFNOX) 

240 PRC FRG= IPPE 2 .GT .0 

IF ( .NOT . PREPPO ) GO TO 250 •• 

C APPLY PEFRACTICN CORRECTION TO OBSERVATION • 

POFTV P= I P R E 2 . • 

oesAVE=oss 
OBS=O.OD 3 

REF RAC= FREQ ' . . * 

„ FREG=RFNDX <2> 

ISAVE=MTY»E 
MTYPE=KTYPE + 1 
CALL CR 3 tT <C AY 2 ) 

THETG=GRHR ANIDST A 2 . ISTA 2 ) 

CALL PFDCFSUST A?, DSTA 2 .TMFTG) •’ O 

03 S --CDS t ■ 

* ’ FR£ OaRPNDXU ) ' * 

T HE TGsGRHPANIDSTAl. ISTA) 

PRfPSO=?A VEPP * - ' 

CALL PPOCH S ( ISTA ,OSTA l.THETG ) • 

OP<=OeSAVE+F.QBS/C 

MT Y PE- I S AV E * . ; 


TWOS 

56 

twos 

57 

TWOS 

efl 

Twns 

5® 

TWOS 

f 2 

TWOS 

* 1 

TWOS 

*■ 6? 

TWOS 

63 

TWOS 

64 

Twns 

65 

TWOS 

66 

TWOS 

67 

TWOS 

6S 

TWOS 

69 

Twns 

70 

Twos 

71 

TWOS 

72 

Twos 

73 

TWOS 

7 A 

Twns 

75 

TWOS 

76 

TWOS 

77 

TWOS 

76 

TWOS 

70 

Twns 

PO 

TWOS 

SI 

Twos 

** 

Twns 

P 3 

Twos 

B4 

Twns 

65 

' TWOS 

66 

twos 

P7 

Twns 

SR 

Twns 

69 

TWOS 

90 

Twns 

91 

TWOS 

9? 

Twns 

93 

T.VOS 

04 

Twos 

OS 

TWOS 

96 

Twns 

97 

Twns 

95 

Twns 

90 

TWOS 

’00 

TWOS 


TWOS 

102 

Twns 

IC.l 

totis 

IfA 

TWOS 

’OS 

TWOS 

10 6 

Twos 

’ r 7 

TWPS 

1 C 6 

Twns 

* flQ 

Twns 

l 1 0 

Twns 

1 11 
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250 FRFO=F 

C CBTAJN CRBTT .** "" 

260 CALL CRB I T ( C AY 2 ) 

. . JTYPE=K T Y P E+ l . , ... . 

F*r«eo ^ ’ 

IFlKTYPF.EQ.l) F= 1 . 0 O 0 

C CALCULATE RIGHT ASCENSION HP GREENWICH AND QUANTITIES NECESSARY TO 
C COMPUTE PARTTALS FCR SECOND STATION 
THETG=GRHR AN (OST A2 , I S T\2 > 

T=C AT AN{ RENV (3, ISAT)/CSO?TC \ .OOO-RENVl 3. I SAT I **2) ) /DRAD 
C COMPUTE PAPTIALS FCR SECOND STATION 

CALL PREDCTl ISTA?, DAYS.FFSin.RESIDS.OATASW) 

PMPXO (NPARM-9. II =3 RS D OT < J T YP E, JSTA2,P)*F/C 
OOSC=-RES ID 
OO 270 1=1. NPAfiM 
■270 PMPXO (1,2) =-PMPXC( I. 1 1 

C CALCULATE RIGHT ASCENSION OF GREENWICH AND QUANTITIES NECESSARY TO 
C COMPUTE PARTIALS FOR FIRST STATION , 

THETG=GRHR ANCDSTA1 . ISTA) 

C COMPUTC PARTIALS FOR FIRST STATION 

■ CALL PFEDCTC 1ST A.DAY2 .RESIO. RES ID2.DATASW) 

PMPX?(NPAf:M-6. I 1 =OBSDCTC JTYPE, ISTA.P1*F/C 

ORSC=OnsC+RESID 

OO 260 1 = 1 . NP6 

1 266 PMPXO < I . 1 > = P VOX0 ( t ♦ I ) 4PMPXC ( I. 2) 

00 2^0 1=1,3 

29D PMPX MNPS+ I O, l )=PMPXC(NP6+I .2 > 

PMPXO (NOARM-7. I ) =1 r>0 

RES ID=OOS— OBSC 

RETURN .' ; ; 

C AVER AGF RANGE RATE C AT A 
•- 300 RCOR=e. CDC 

IF* IPREi .LE.O) GOTO ACC 
REF RAC= C • 0 CO 

IF* IPRE2.LE .0 ) GO TO 25 C 

• C SET REFRACTION VOICES FOR TRANSMITTER C RECEIVER 
- -RCF RAC = rREO 

IF ( RFNDX < 1 ).LE.Q*> R F NO X( 1 ) - 32 8 • 5 
IF( RFNDK { 2 ) .LE .0 .) R F NO X { 21=326.5 
l „RFNOX(l J = RFNCX ( 1 >*0.84323360-2 
RFNDX(2 l=RFNDX ( 2 )♦ 0 • 6 4323360-2 

350 CAY R=CAYl ; - ' 

■PMFPRO— I°RE2 «GT .0 ■ ■ ' 

LOGIC = PPF.PPO 

C COMPUTE TRANSIT TIMES FOR START CE COUNTING INTERVAL 

• -CALL UPDnWNtDAYI ,DAYR .CAYT.-l. CDC. ISTA.ISTA2, ISAT. LOGIC. PCOP. 

' •' RFNDO ' 

01 0 = 0 AYR- C AY 1 
f>l U=D AY 1-DAYT 

- DAY R=DAY2 •• ' ' ' ” 

CAY2 = DAYR-DtD 
RCCR =— RCC r ”' 

C COMPUTE TRANSIT TIMES FOR END OF COUNTING INTERVAL 

CALL 0PD0WMCAY2.DAYR.CAYT.-1. :00, ISTA, ISTA?. I SAT .LOGIC *RCOR. 

- • FFNDXI 

02D=0AYR-D AY2 


TWOS 112 
TWOS 1 1 3 
TWOS 1 1 A 
• twos nr* 
TWOS 116 
TWOS I 1 7 
TWOS I 1 A 

Twns iiR 
TWOS IT-: 2 0 
Twns 121 
Twns 122 

TWOS 123 
TWOS 12A 
TWOS ! ? 5 
Twn« 12* 
TWOS 127 
TWOS 1 29 
TWOS I?R 
TWOS » 70 
Twns !3i 
TWOS 132 
TWDS 133 
TWOS 13* 
TWOS 135 
Twns » 36 

TWOS 1 3 7 
TWOS !?« 
Twos ».-»q 
TWOS t AO 
TWOS 141 
. TWOS 142 
TWOS ?A? 
TWOS 14 a 
TWOS '45 
TWOS I4f 
TWOS 141- 
TWOS HP 
twos 1 4 c 
TWOS 1*0 
TWOS 1 SI 
TWOS 152 
. TWOS 1 S3 
TWOS * 54 
TWOS tss 
TWOS 156 
TWOS 1 S'* 
TWOS 15F 
TWOS iso 
TWOS 16«*. 
TWOS 161 
TWOS 16? 
TWOS 163 
TWOS 

T WPS 1*S 
TWOS 166 
TWOS 167 
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'• 02 u=cay?-dayt ■ ■ 

400 O.AYRsOAYl + 01 D 

DAYTbOAYI - Dili • 

CALL ORBIT (CAY15 
THPTG = GRHC ANfOAYT. 1ST A? ) 

T=OAT ANt P = NV <3 . I SA T ) / CSORT ( 1 .0 0 0-PEN V( 3, ISAT)**2) )/0RA0 
OOSC=-R( IS AT ) 

C COMPUTE UPLINK RANGE t PAPTIALS AT START 

CALL PPEr»CT( ISTA2, DAY 1 ,PES ID ,RCSID2»nATASW> 

PMPXO (NPAfiM-H, 1 > =D 6 SDDI { 2. I STA 2, P ) 

00 410 I = l , Nf =6 
410 PMPXO Cl .2 )=-cmpxO( I# 1 J 
DO 420 1-1,3 
PMPXO ( I -fVP6 * 2) -0 .0 00 
’ 420 PMDXOt 1 4-N* 3 , =-PMPX0 ( [+NP 6 * 1 ) 

THETG = G«HR AN (D AY R, I5TA) 

OBSC = OP5C-R< IS AT ) - , ' 

C COMPUTE OCWM. INK RANGE T, PARTJALS AT START 

■ CALL PPf.DC T { 1 ST A ,0 AY 1 ,PES ID, RESir> 2 ,OATASW> 

PMP XC (N°A RM— G, 1)=OBSOCT(2, ! STA »P ) 

DO 430 1=1 ,NP3 

430 , P L t°X 0 (I, 2 )-PV , Px 0 (If 2 ) —PMPXO ( 1 * 1 ) 

CALL ORBIT ( C AY 2 ) 

D AYT-0 AY? -C2U 
-OAY R=OAY2 + C2D 
THETG = GRHR ANtOAYT, 1ST A2) 

OPS C-OSSC + R? rc *t ' 

C ccv.r* ' jt 7 r . *n c e s p *.,'-.▼▼»« s at 

CALL PRcf>CT( ISTA2,OAY2,PESIO,RESID2,DATASW) 
PMPXOCN^ARM-H, 1 J=a8S0CT<2. ISTA2.P) * 

■ — -00 440 I = l ,NP 6 

440 PMPX3(I,2 )=PVPXO(I .2) 4PVOX0C I. 1 1 
00 450 1*1.3. 

450 - PVPXQ (I **03 . Z) =P^r.O ( I + NP3, 2 >*PMPXC{ I +NP 6,1) 

THE TG= GRMR AN ( D AY R, 1ST A) 

___>_^_-.OJ3S.C=0 3SC +R( IS AT ) .... 

C COMPUTE DC* SLINK RANGE T. PART 1 AL S AT END 

CALL PRFDCT ( 1ST A.O AY 2 t^ESIO, PE 5!D2,DAT4SW) 

^PMPXO CNPAPM-fi, j ) =QSSOGT ( 2, ISTA ,P ) 

00 460 1=1 ,NP3 

460 PMP XO (I ,2 )=PVPXC(I ,2 ) *°MPXO( I, 1 ) 

-43ELTAT=( 0AY2+D20-DAY 1-D1D)* 1 7. 2804 

* Dtinv=i .odo/celt at 

,. IPtPREPRO) OCS=OPS -»RCCP*DTINV 
PRrPPO=.F 4LS E, ' . 

C CALCULATE 0 = 5 ICUAL ^ - 

ft£S lD=03S-CeSC*0TCNV . ' . * 

DO 470 1= 1 . No a = m 
470 • PMPXO { r , 1 I-OWPX0 ( I , 2 > *0T ! NV 

PMPX0<N3ACM-7* 1 )=1 ,CDO '• 

lF(MTYPE.^a.20 ) P£ TUP N 

: ... ' PMPX3 (N**»S* 1 , 1 > =PMDxO < V»e* + 1 , 1 l + PMPXC (NO !♦ I , I ) 

pvrxo CN"»3 4-2 * J > =p ,,:> xo < 2 , 1 1 + PMHXJ ( NO 5#- 2 , 1 ) 

-PMPXC (NOf, j |=pMp xq { ? , j JfOUoxf.lMaif ■},!) 

PMPXO (NPM»M-(., l >=RMPX0<NPAPM-6, l ) + RmOx')(N d A3M“A, 1 ) 

pmpxo (npa RM- e * i ) -o . o r o 
PMPXO (N 03 * 1 . 1 )=0 .0 03 
PMPXO INPJ + 2,1) = 0,000 

. PMPXO (N°3 + 3 , X ) = 0 *ODO ‘ “ 

/’.>•• '. RETURN- •. . . 

’•'* •" END i* -• 
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TWOS 

1 6B 

TWOS 

169 

... TWOS 

1 70 

TWOS 

171 

TWOS 

l'**2 

TWO? 

173 

. . TWOS 4 

174 

TWO*5 

1 75 

TWOS 

1 76 

, TWOS 

177 

TWOS 

1 7b 

TWOS 

1 7-a 

TWOS 

1 0 •? 

TWOS 

1« 1 

TWOS 

? 

twos 

! 63 

T KPS 

164 

TWOS 

t pS 

TWOS 

1 PA 

TWOS 

1 

Twns 

1 P » 

twos 

1 PC 

TWOS 

1 O'* 

TWOS 

: pi 

TWOS 

\ a 2 

TWOS 

19’ 

Twnc 

1 C£ 

TWOS 

*flC 

TWOS 

' QA 

TWOS 

1 C 7 

. TWOS 

196 

twos 

I 

TWOS 

20C 

TWOS 

201 

TWOS 

rc? 

-TWOS 

20 ■» 

TWOS 

2^4 

TWOS 

?C6 

TWOS 

?C6 

* TWOS 

207 

TWOS 

rc « 

TWOS 

*69 

TWOS 

r> j 0 

TWOS 

21 1 

TWOS 

21 2 

.TWOS 

?! 3 

TWOS 

214 

TWOS 

?! 5 

TWOS 

SJ 6 

TWOS 

917 

TWOS 

?1 9 

TWOS 

?1 c 

TWOS 


Tvns 

S?1 

TWOS 

22? 

TWOS 


TWOS 

??4 

TWOS 

?? 5 

TWOS 

??6 

. TWOS 

??7 

TWOS 

r 2 b 
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-Peeler 


Corpora 
' 'PACTTftLS fCjf. 
Sccoxj/> 
Sr/trsc*) 


fesiLCuc* rc £jc,rih 
f/iSCCMSICJJ Cf= 4Att 

/M/j> C cwv- 
^ 7 " x-rx cs /vC'&ssA/ir, 

\70 pA/iTI/UD fk.£f 
vfxtc^r soirzc/J , 


frC'OcT 


ec/Kfcre 

p/JrtTl/li. s 

fx/zsr 

St/ittcsj 



« 5 c r A’cf/ZfCrxc/J 
XiObzces F&tL 
Tsz/iswx 7TS/Z 
— 

peofZMC'fL 


UPJ>C-IC*J 

(e ensure tsl/!n- 
fSJer Fee 

\SfAef Cf CviMJ T£*!(f 
TaJ* ’& 2.kZ)L. 


CfDC lOdJ 

icrhpcrc T/MKSiT 
TT,kC& FC/Z. £ajD 
OF CowrX/J<f 
Jrc/ZVAC 



peeper 


O-O/Kpora or- 
ZX/V< 

Ajjo rffiTz/us, 
A T STp/tT 


rrzeeer 
Copt, pore 
foOtOAJC ZAJF, /ZPM& 
Am p/\tirx*t<> 
Ar ST/?er 


1 PacteT 
fcosKpore o/tiA,] 

[/?**$£ AN£> fF/z 
TxsU SAT £n2>. 
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\PAAi4 e pH & ppfz- 

p T eAL z 
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lv; J’KUULCilill.iTV OF Tnk . 

ORIGINAL PAGE IS POOR^ 


*AM£ 

TYPORB 


; ' 

PURPOSE 

TO PRINT ARC SUMMARY PAGE 

•- . • 

CALLING SEQUENCE 

CALL TYPGR 0 (DAYO , M INDEX, ARCMP 

.OU^ER .PMSPQS) 

SYMPCL TYPE 

DESCRIPTION 


DAYO . OP 

INPUT ~ 

TIME OF FINAL SET nF 
TOR DRAG 

PARTIAL DERIVATIVES 

MINOEX I 

INPUT - 

TOTAL NUMBER OF MEASUREMENT PLUS 1 

ARCNO I 

INPUT - 

ARC NUMBER 


OUTER I 

INPUT - 

OUTER ITERATION 


RMSOOS DD 
( 2 , 1 ) 

INPUT - 

ARRAY CONTAINING RMS 
VELOCITY FOR ADJUSTED 

1 

OF POSITION AND 
ELEMENTS 

SUBROUTINES used 

COTPRD 

ELEM DATES 

APPER 

'COMMON BLOCKS 

APARAM 

CSTINF 

.PRIORI 

ALPMRC CELEM 

CTIme GEODYN 

TPEDLK XY 70 UT 

CGEOS C 0 R 31 

INI TOK INTBLK 

CON STS 

INPUT PILES 

fiufiu 



OUTPUT FILES 

NONE. 

- — 



JGEO DYN 

SYSTEMS DESCRIPTION* 

% • 


VOLUME 1 - GEOCYN DOCUMENT AT I ON 


SUE* OUT rNE typore{oayo»mindex. ARCNO, OUTER, RMS=»OS> 

IMPLICIT PEAL*8 (A-H.OZ) 

LOGICAL DR AGSW % OR3TSW , HYPER * 

INTEGER ADDR , GUT P, DAT P, ARCNO , OUTER 

REAL RMSTOT .TYOrms 

DOUOLE PRECISION LHAT ,*'SAT 

DIMENSION LHAT(2),OL(2),OT(2). OM«n$( 2,1) 

COM MON/ AD A RAM/JndaW(m ) • NS AT , NGP A PC (51 
COMMON/ AL DMRC/ l T NM S ( 1 A) . ATYPR A 7 > , HYPER 
COMMON/CELEM/eucf/s r ( 6 ,2 ) • OP PE- A< 6,2 ).EC • XNU.RMSTOT 
COMMQNVCGr cs/ ISATI D£ 2 >, IDREPPC 4 52 » 

COMMOn/CGNSTS/p I .T wDD l.PPAn.osEC 

COM MON/ C OP Ol /R AN COT ( 2 ).PrROOT< 2) ,P r PHT ( 2 ) * A 3 H T ( 2 ) ,PQ0<2> 

COMMON/CST. INF/^E AS NO C 2S> ,TYPKM 5< 2C ) , NOT YPE I 2 • 3 0) , OSUMt 1 *A) . 

• KGwTCW,LP ASE ' ” 

COM . v 3 N/ C T I Vc/DAT AEP( 2 ), DST APT, r.AYSTP.PAYINTI 7) . IYH2G 
COMMOn/GEODYN/DATE ( 5 ) 

- COMMON/ IN I TEK/I EPY-0, lEPHf4,FPSrC , IDU'Mf 3 2 ) , OR * T SW , M I SL GG ( 2C ) 

COVMUN/INTELN/TMDDTI 3 ).G«,Afc-,AESOI47) . AS A T < 2 ) , M SA T< 2 ) , V A RS TP ( 3 | , 


TYPO 
TYPn 
TYPO 
- TYPQ 
TYPO 
TYPO 
TYPO 
TYPO 
TYPQ 
TYPO 

typo 

TYon 

TYPQ 

TYPO 

TYPO 

TYPO 

TYPO 

Tvpq 

TYPQ 
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37 

?R 

3 o 
AO 
A 1 
A? 
* ? 

4 A 
45 
A* 
4 7 
4 f» 

40 

SC 
SI 
*> 

S 4 
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1BPR0DUCIBILITY OFTHE 

' ORIGINAL PAGE IS EGCflfc>. 



;• ADDR(14l 

• COM*ON/PRIClRI/ELEM IN t *81. T ITLE < 30 1, DRAG ( 121. CO (2) «CDO( 2 > «=MtSS C 2) 
CQMMON/TPCPLK/ INTP ,aUTD»OATP( i C ) 

COMMCJN/XYZCLT/FLFMS( 6 |2 ) . Df?G°AP( t .2)' 

C COMPUTE ORBITAL CHARACTERISTICS FROM KEPLER ELEMENTS FDR EACH 
C SATELLITE ’■ 

DO 100 l “ 1 » NS AT *. 

DRA0SW=ADDR< 1} «GT.C 

r . ' CALL ELEmIELEMST <1 ♦ l I .0P8ELA(1 * l )tl* .FALSE**nRHPLAl 
IF < •NOT'.OR AGSW I C>0 TO 75 
RVacDOTPPDiELEMGC 1, I ) , ELEMS( 4.1 ) ) 

VSO=nOT3pr>{ ELF V5(a , T ) ,EL£MS ( A. I ) I 
- RSO»DOTPRO CELEMSCI * 1 1 •ELEMSf 1* I ) ) 

D=PSORT (VS0-RV**2/RS0 I 
DC 50 J-l • 3 

50 LHATCJ) = (-RV*ELE^S( J. n/RSO + F^FVSf J + 3. n I/O 

DLC n =DOTORC (LH AT. DSGPftrM 1 , I )) *CD( I ) /( DA YC- :> ST \R T I * * 2 
7S AE A3S— ( AE /OAFS ( OP3 EL A ( 1 • M > ) «* 3« S/( I . CDD-0 RBEL *U 2 « I >**2 >**2 
COS I=OCOS { ORt-EL A<3 , I ) *OPAO ) 

RAM DOT ( I ) s— 9 .9 7DC* AF A 25*C05 I 
• PEROQT ( IJs4.9BD0*AcA35«{5.0n>COSr**2-I.?D0) 

100 IF (DRAGS W ) CT ( I >=6.C CS*P [* C SO R T ( DAOS( DR BELA ( 1 .1 ) 

. .. ...* CDOTRRD (ELEMS (1 . I ) .ORGPAR ( | * t > >/( RSQ*DSORT( RSD ) I -f 

» • • DOTPRDt ELEMS(4, l ) , CRGPAR( 4, I > )/GM)*CD( I ) /< D AYC-DSTART > 

NO^S-M I NDEX- 1 

C COMPUTE OAT \ START G STOP TIMES 

CALL DAT^SCC AT ~Cr{ * 5 . I VFO 1 » I HM I . SEC X 1 
CALL CATES i 0 AV S7P. I V m Ci In**« 5cC i 
DO ISO K— 1 ,2 
C WRITE title & EPCCH 

__WRI TECOUTO, 1CDO ) DAT E « ARC NO . C*J TER.TTTLE 

WRITE<OJTP.4G001 IEPYVD. IEPHM, EP SEC • I YMD 1 » JHMI . S= Cl . 1 YM£> . I HF, SE C 
IFCCRBTSWl GO TO 250 

IF<N0eS.L E.O) GO TO 2 50 ' J . 

C WRITE RESIDUAL SUMMARY FOR DATA REDUCTION RUN * ' 

WRI TE (OJTP.5COO > 

00-200 _ I=T .30 

' 200 IFC NOTYOE ( 2. I ) .GT. 0 I WR ITE I DUT° . 6C00 ) A T Y^E ( J I .NO TYPE ( 2 • I) • 

. TYPRMS (II 

WR I TE ( OUT ° » 7G0 C > NOW T C3 , R MS T OT • NOB S 
250 CALL APPEP 

C WRITE ELEMENTS G ORBITAL CHARACTERISTICS FOR EACH SATELLITE 
DO ISO I = I .NS AT 

WRITEtOJro.arOO) I , < ELENS' J , t ) , J=1 . 4) . ( ORBELAf J, I 1 , J=I ,61 • 

• ISAT ID( I \ ,ASAT( I ), MSAT < I >,CO( I >,CDD( I J.E«l SSI I > 

I F C • NOT .OORTS#) V.R ITE (OUTP. SCC C > (RMSP-3S ( J • I) • Jsl ,2 I 
ORAGSW=ADDR( I) .GT.O 
PEFVIL=PF RHT <t \/ 1. OCR 3500 

APM-IL = AOHT ( I )/: .;:0 43 5re ' _ 

PRDC I > = T W0PI*0S0PT ( OA EStCRBELA ( I . I )J *♦ 3/GM J 
PROMIN=PR?l I )/6Q .ODD 

* WR| TEC OUT O.2C3 0 ) R AN OCT < I ). PFROOT( 1 ) ,P^«HT( I ) , »E» MI L • APH T ( J ) . 

• A°M IL * PR DM I N 

150 IF { CRAGS W I WRITE (3UTP .?C0C ) CLlll.OTO) 

RETURN 

ICO? FOFWAT ( IM1 , 14X . SA3/« 0 ARC* ♦ 14 * 


TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO* 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

I VPII 

typo 

TYPO 

TYPO 

TYRO 

Typo 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

^TYPO 

'typo 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 

TYPO 


g. 0-544 


56 

S’* 

S3 

SR 

60 

6 l 
e? 
63, 
(A 
f5 
Ff 
67 

fF 
t 9 
7C 

71 

72 

73 

74 

75 
74 

7 7 

76 

70 

80 

81 

82 

83 
PA 
AS 

A4 
A7 
a A 

84 
OO 
9 l 
° 2 
0 3 
9t 
p 5 
94 
07 
°P 

O D 

I Cl 

I c 

1C. 

\ C4 
1C5 
! C* 
' r 7 
1<*« 
7 CO 
1 t C 
1 1 1 
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.OElGWA-b'.^'GE- B 


• • SUMMARY FOR LAST INNER 

• MTEQAT ICN* . I 2/3( / IX, 10A 

2COO FORMAT ( 1 MC • 9KvlOOE RATE. 

• • .12X* t JHAPQGEE HEICHT.19 

• 1X*2(9H{DEG/CAY >, 4XU-*X, 

• 6X,7H(MJLE5) .RX ,4H(KM 

, 1X.F9. 5 .F12.5.3X. 2F12.4. 

3000 FORMAT { 1HC • 3^X .4H0H AG ,7X, IT 

• 9H(SCC/CAY J /2P-X , 2F 14 .4 » 
*000 FOP MAT { ■*? EPOCH* . 17 . I 5 e. A, 

, « END* , 17 , 15, F8 . 4> 

5000 FORMAT ( * ? M E A 5 * TY°E‘ , 5X,*NH 
6000 FORMAT ( 3 X • A 6 ,7X, 112*5 X.F12. 
7C0C FORM AT ( * 3 TOT AL »* 8X * II 2. 9X 
9000 FORMAT ( 4 j3 ftT 1 *I2«* CURRENT 

• -■ TIME— SEC ON C S , ANGLES— OF 

. «• 2 = * «G22«1 6/ * XDO T — 

• G22.1S/* A = • « G2 2 * 1 5 * * 

, *« NOOE = • • G22. 15 • • PFRG-* 

• • AREA (v**2) = • , 1 !> D 12. 

• ‘1POI2.4,* CRAG DO T= • » D I 
PMS POS IT ION -• *F 1 


9000 FORMAT!* 
END 


ITERATION OF OUTER *• 

an 

3X» 12MAPG PER R ATE » 6X, I 4HPER I GEE HEIGH 
X , 6 HP ER I OD/ 

4 H( KM ) . 

) ,7 X , ?H< M ILES I , 4X.RH( MINUTES) / 

2F13. A.F12.T) 

HPEPinp DEC/34X,10H(M/DAY**2> *4X* 

• BEGIN TIME* ,I7.IS,F6*4, 

. OF WTD RESIDUALS* *5X,«WT0 RMS*) 

3 J 

,FI2*.1.» TOTAL NO. OF ORS =*.I8) 
ELEMENTS. UNITS! L ENGTH- METE PS • *« 

GREFS.*/* X =*,G??.16»* Y =*,G2?.I 

* «G22 • 16, • YD OT - * * G,22 • 16 . * ZDOT=*. 

c - * « G2 2 .15,* INCL- * ,G??. 1 6/ 

, G2 2.I6,* ME A N = * . G 2 2 • 1 6 / * SATID=*.IB, 
A.» MASS (KG) =*.3R012.2/* ORA G - * . 
2.4,* SOLRAD—* ,DJ2.4) 

2.3.* RMS VELOCITY =*.F12.6) 


TYPO 

TYPO 

TTYRO 

TYPO 

TYPO 

TYPO 

TYPO 

typo 

TYPO 
TYPO 
TYPO 
TYPO 
TYPO 
TYPn 
TYPO 
6 T YPO 
TYPO 

TYPO 

TYPn 

TYPO 

TYPO 

TYPO 

TYPO 


1 1 2 
l 1 3 
*. 1 A 
! 1 S 

ii«i 

\ l 7 

* I * 
♦IP 

121 
12? 
12 3 

* ?4 

\?S 

1 

* 
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. • .♦ - * • • 

update :v ’7 ■* : • 

* * +. • ' 

DESCRIPTION 

This subroutine uses the matrix partitioning tech- 
niques described in the GEODYN Systems Description, Volume I, 
to update the estimated values of arc adjusted parameters • ^ 

for corrections resulting from the adjustment of common 
parameters in the partitioned solution. 
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KAME 

PURPOSE 

CALLING SEOJENCE 


UPOATE 

TO update arc adjusted parameters to compensate 

FOR ADJUSTMENTS TO COMMON PARAMETERS 

CALL UPDATE {N ARCS, OUTER .N START, SUM J .DELTA .ODELTA 
TTL. BSNOS. HSVAL) 


SYMBOL 

TYPE 

DESCRIPTION • • . . 

NARCS 

1 

INPUT - NUMBER OF ARCS 

OUTER 

I 

INPUT - OUTER ITERATION NUM3ER 

NSTART 

*1 

INPUT - STARTING LOCATION IN NORMAL MATRIX OF 
COMMON PARAMETERS * 

SUM1 

(I) 

DP 

INPUT - NORMAL MATRIX 

DELT A 
(1) 

OP 

-INPUT t OUTPUT - CORRECTION VECTORS FOP ADJUSTED 

PARAMETERS 

©DELTA 

(I) 

oo 

SCRATCH • 

TTL 

II) 

DP 

INPUT - PARAMETER TITLE ARRAY 

BSNOS 

(I) 

DP 

Input - locations in normal matpix biasfs. 

DRAG. SOLRAO, AND GFOROTENTJAL PARAMETERS 

BSVAL 

Cl) 

OP 

INPUT C OUTPUT - VALUES D p BIOSES, DRAG, SOLRAO. 

AND GEO ra O TE NT 1 AL PARAMETERS 


SUBROUTINES USED COPREL 
COMMON BLOCKS 


AP AR AM 
PRIORI 


DAT AR D 
CEL EM 


CONSTS 


CP AR A M 


TPEBLK 


INPUT FILES 
OUTPUT FILES 


NONE 

OUTP - PRINTER 

■GFDDYN SYSTEMS DESCRIPTION* 
VOLUME l - GEO DY N DOCUMENTATION 


SUP ROUT I S e Uf'O AT DINAR CS .OUTER. NS TART. SUM l .DELTA* 
, OOELT A , TTL. PSKOS. OSVAL ) 

IMPLICIT REAL** (A-H.C-Z) 

LOGICAL r.MPGFR 

INTEGER AT CNC, OUTER. OUTP 


IIPD A * 1 

IIP© A 
IIPD A ST 
IIPD A S4 
UPDA 5S 
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INTEGER* 2 ESKOS 
REAL. RSVAL 

DIMENSION SUM! <i ) • DELT A { 1 ) . DOELT AU > * TTL< 1 ).BSNOS(l »*BSVAL< 
COMMON/ APARAV/INPAR* IKPAR 1, NPJ A S • NSTST A# NS AT t NGPARC ,ND^EC1 
. NEB I AS* MAXP AR 

COMMQN/CELEM/EL£ M ST ( 1 21 .ORBELA ( 1 2 >» XDUM( 5) 

COM ^ON/CHnST 5/ DP I . DT W C° I * DP AO, CP SEC 

' * COMMON/ C» AR AM/NS TA.NM AST, NSTEST, NO I 4S*NSe*CI*NG»C2«NGP« 

• NCSEST « GMPGRR »L I *A l «L I M2* NO? N # NOENST* NTl DST« NTI Or.N « I NNRS' 

• NCONST • NCCONS 

COMKCN/ PP I C R 1/ EL EM IS ( S3 > , CD( 2, 3 ) 

COM MON/ T PE ELK/ I NTP • 0 U T=> « I T AP ES ( l 0 ) 

INDXNOt I > =NC IM* ( I- 1 >- ( t * < I- l > 5 /2 
C LOOP THROUGH ICCO FOR EACH ARC 
DO 1C00 ARCNC=1 • NARCS 
C REAO ARC INFORMATION 

• CALL CAT ARD(ARCNC» .FALSE.* .TA. SCu *TR UE • > * 

11=0 

C COMPUTE CORRECTIONS 

00 ICO 1= 1 • NPA RAM 
DELTAU > = 0 .OCO 
•-00 SO L = NSTART, NOI M 

l * - li=ii+l 

SC DELTA ( I J = OFLTA( I )-SJM 1 (L 1 |*DFLTA(L) 

~ loc n = n*NniM-i 

I1-STN3AT 

A w- ■ ruCMTC 

V V*>nr< Lv, ♦ ' « — 

DO 150 1 = 1.11 — • • 

150 ELCMST(t»=ELFMST(I >*0ELTA(I1 

NOSGP=MBI AS ♦NG^ ARC 

C CORRECT- BIASES GFO POTENT I AL COEFFICIENTS. DRAG T. SOLRAD 

DO 200 I=1.NGSGP 
IF4 fiSNOS < I > • ED } GO 200 

11=11+1 

BSVALCl)*5SVALt I M-DELTAC I 1 J 
2 GO cONTl NUE • ... 

11=0 

00 250 L=1 .NS AT 
00 250 1=1*3 
11=11+1 

! = * 55 NOS i I 1 1 .LS .0) GO TO 250 . ' . - 

CO ( L* I»=BSVAL( I 1 ) 

250 CONTINUE 

1ST =1 NDXNO<NST ART) ‘ 

LI = 0 

C LOOP THROUGH SDO CORRECTS NORMAL MMATPIX 4 . 

OH 6C0 L=1 .NPARAM 

• VST=IST 

DO ACO M^NSTART ,ND IM 

DOhLT A( ” I = 0 • 000 • 

NMss IST +' 4 

DO DC 3 N=‘ISTART*m 
NL=L1+N 

OOELTA<'»)=DDbLTA<M l+SUMl LNM) *SUMl <NL> 

3C0 NM = NM + M? I M-N 

IF < M.HO.NO I M) GO TO 4C3 


upn a 

56 

UPOA 

«;? 

l ) U.PDA 

SR 

NPAPAM .HDD A 

C Q 

UPOA 

AC 

UPP A 

M 

UPOA 


OM* UPPA 

if'* 

1 , UPOA 

A4 

UPOA 

6 5 

UPOA 

* A 

UPOA 

FT 

UPOA 

PR 

UPOA 

FO • 

UPOA 

70 

UPOA 

71 

UPOA 

7? 

UPOA 

7? 

UPOA 

74 

UPOA 

7 R 

UPOA 

7 A 

UPDA 

77 

tJPDA 

73 

UPOA 

7<3 

UPOA 

5 0 

UPOA 

pi 

UPDA 

M 2 

UPOA 

M3 

UPOA 

6 A 

UPOA 

PE 

* UPO A 

66 

UPOA 

«7 

y ' UPOA 

S3 

v; • •- UPOA 

P 9 

UPDA 

oc 

UPDA 

S 1 

UPDA 

°2 

. ■ UPOA 

R3 

UPOA 

la 

, UPDA 

os 

* UPOA 

06 

UPOA 

<37 

UPDA 

On 

; ' UPDA 

09 

UPOA 

- OC 

UPOA 

* 01 

UPOA 

1 A ■» 

UPOA 

» p 3 

IIPPA 

» C A 

IJPOA 

!0F 

tfpnA 

* A<e, 

1 «dOa 

\ C 7 

ilpni 

»C« 

UPDA 

♦ JO ^ 

UPDA 

1 1 0 

UPOA 

1 1 1 
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t»P2=M + l 

, „ 00 350 N=MP1 ,NDIM ^ . . 

KM=FST+N ‘ 

KL-L1 +N 

353 DDtLT ACMJ^ODELT ACM > ♦ S U*< 1 ( NM > *SUM 1 <NL ) 

400 MST=MST+NO IM-M 

. 11*1-1 ' . ... 

DO 500 t=L*NPARAM . ' . 

1 2 = LI «-I 

no 450 M*N.START*ND1M 

IM= 11 

450 SUM 1( I 2 ) * SU M 1 ( I2> + SUMlf:M)*00fTLTA(MJ 
500 II* I14NOIM-I 

DO 553 M= NSTART.NO IM 
!M=L1+M 

550 SUM1( IM)=-OOELTA(M) 

600 L1=L1 +NOI M-L ? 

C PRINT UPCATED CLEMF.NTS fc CORRELATIONS 
WRI TE tOJTP . AA446 ) 

J1*NSAT*6 

WRITE (0 JTP» 1030 4 1 ARC NO .OUTER, < ELEMST ( J ) • J = 1 .Jl) 

-CALL CnRRELCSUMl ,NPAR AM.ND! K.ARCNO. TTL) 

WRt TE (OUT 0 . 444 6 0 ) ARC NO 
C PRINT UPDATED PARAMETER SIGMAS 
DO 650 1=1 ,NFAR AM 
1 Is: INOX NO { l ) +1 

*5* woi TPfn.lTO .44461 1 TTL (I). SUM It I I ) 

C PRINT CROSS CORRELATIONS - . 

WRI TE couro. 444S0 > ARC NO 

WRITECOJTP. 1G214 ) CTTLC J ) , J=HRT ART. NO I M > 

1ST=NSTART 
ISTPsNDIM 

: OO 900 1=1 . NP AR AM 

■ INDEX 1= MOXNOC I ) . 

^ . 1 1 ss INDEX I + I _• 

DO 7C 0 J=NSTART, NO IM 
JJ=1NDXN3( J)+J 
I J= INDEX l ♦ J 

700 SUV1(IJ>=SUM1(IJ)/(SUM1(1 I ) * DS OR T ( SUM 1 1 J J) ) > 

WRITEC0JTP.1C215) TTL C M , ( SUM1 ( J ) . J= I ST. ISTd ) 

IST=IST+nD IM-I 

CCO I ST P- I ST° ♦ NO IM— I 
C STORE UPDATED ARC INFORMATION 
1 000 • CALL DATAROC APCNC*. .F ALSF-. .. TRUE. • .FALSE. ) 

RETURN 

10214 FOFMATU H- ,6X, 1 3 A6 ) 

10215 FORMATUHC .A6, 18F6.3/C7X. 1?P6. ?»1 

13204 FORMAT Cl HC//.4CX.24HUR0ATE0 ELEMENTS FOR ARC.I3.22H 
1ERATION, | 2 .// 

• <44X, 1HX. 25X. 1HY, 2SX. lH^Z/M^X, 3024. 16 //42X . 4HXOOT ,2? X * 

• 4HY0TT .22X, 4H700T//TCX. 3024 . 16//J) 

44446 FORMATCl'U) 

44450 FORMAT ( 1U0/7X, « CRD SS C^RR FL4 TI CN C r;ec T!C TENTS f>*=TW“EN STATION 
I 'POSITIONS AND ARC 4 i 13.* ADJUSTED PARAMETERS') 

4446C FORMAT C 1MC . ICX .* ADJUSTED PARAMETER SIGMAS FDR ARC*. 13/) 

44 461 FOP vm < 1 3 X . A6* Cl 0. 3 ) 

end 


AFTER OUTER 


UPDA 
UPDA 
UPDA 
UPOA 
UPDA 
. UPOA 
UPDA 
UPOA 
U»DA 
UPDA 
UPDA 
UPDA 
UPDA 
UPDA 
UPDA 
UPOA 
UPDA 
UPOA 
UPDA 
UPDA 
UPOA 
If PD A 
UPOA 
UPDA 
UPDA 
UPDA 
UPDA 
UPOA 
UPDA 
UPDA 
UPDA 
. UPDA 
UPOA 
UPDA 
UPOA 
, UPDA 
UPOA 
UPOA 
UPOA 
UPOA 
• UPOA 
UPDA 
UPDA 
UPDA 
UPOA 
UPDA 
UPOA 
I TUPOA 
UPOA 
UPOA 
IJODA 
UPOA 
. UPOA 
UPOA 
UPOA 
UPOA 
tIPOA 


112 
1 1 3 
I ! 4 
115 
! I 6 
117 

H* 

IIP 
120 
1 2 1 
12 ? 

1 

124 

125 
1 £6 
1 2 T 
*2° 

* 2 C 

1 3 
131 
13? 

* 33 

* 24 
! 35 
1 35 
1 37 

l 35 • 
» jw 
u.l 
! 4 1 
142 
\ 4 3 

14 4 
144 

146 
14 7 
\ 4 A 
U<5 

* 52 
151 
\5R 
! 53 
154 

1 55 
! 56 
1 5 7 
15P 
1 S Q 
1 AO 

* 6 1 
! A? 
1/3 
1/4 
T 

\ 66 
if*** 1 
t6 a 


Tnr=35*o 
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MMC 


UPDOWN 


PURPOSE 


TO COMPUTE UNLINK AND DOWNLINK T P AN SI T TIME FOP 
AVFRAGE RANGE. RATE DATA 1° THE TWO DOWNLINK 
TRANSIT TIMES FOR VLHI DATA 

CALLING S£ 

O'JEN CE 

CALL UP DOWN (DAY, OS TA l . DSTA 2, S I GN , I S . A I , t STA2 *ISAT, 
PREPRO *C5S,R rr I NO X ) 

. SYMBOL 

TYPE 

DESCRIPTION 

DAY 

OP 

i 

INPUT C OUTPUT - SATELLITE TIME IN DAYS FROM 

> JAN 0*0 OF THE REFERENCE YEAR 

INPUT - NOMINAL ESTIMATE 
OUTPUT - CORRECTED SATELLITE TIME 

DSTA1 

DP 

INPUT - 

• ^ 
FIRST GROUND TIM.” IN DAYS FROM 
JAN C.O OF THE REFERENCE YEAR 

. DSTA2 

i 

SIGN 

OP . 

OUTPUT - SECOND GROUND Tt ME IN DAYS 

FROM JAN 0.0 OF THE REFERENCE YEAR 

DP 

INPUT - 

FOR VLB I DATA 

FOR AVERAGING RANGE ° ATE DATA 

1ST A t 

I 

INPUT - 

INDEX FDR FIRST STATION 

1ST A 2 

I 

INPUT - 

INDEX FDR SECOND STATION 

IS AT 

1*2 

INRJT - 

SATELLITE INDEX 

PREPRO 

L 

INPUT - 

SWITCH REOUFSTING TROPOSPHERIC REFRACTION 
PREPROCESSING 

OQS 

’ -- 

OUTPUT- 

- VALUE OF MEASUREMENT 

RFINDX 

12) 

R 

INPUT - 

REFRACTION INDICES FQD MEASUREMENT 
PREPROCESSING ‘ 

SUBROUTINES USEO 

ORBIT 

GRHRAN - ’• 

COMMON BLOCKS 

CUVECT 


INPUT FILES 

NONE 


OUTPUT FILES 

NONE 
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SUBROUTINE UFOOWNC DAY ,nST A1 , OST A2.S IC,N, I ST Al * l STA2, I SAT .dreprh , UPDO ?A 

CBS»WFINDX) l|t>On 



~8vO-S$2 
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IMPLICIT REAL*6 (A-H.C-Z) . ' 


UPDO 

S* 

* LOGICAL NOTIST .PREPRO 


UPDO 

S7 

_ INTEGERS I SAT - - ' . , _■ ■ 


UPDO 

SS 

REAL RFINDX 


UPDO 

so 

DIMENSION RFINDX (2 1 


updo 

AC 

COMVON/CUVECT/UHAT { 3 . 2) .XYZ< 3. 2>« RXYZ( 3. 2) .RENV(2.2 J *R( 2>* 

updo 

SI 

• CSOtZ) t XYSO ( 2 ) 


updo 

€2 

DATA C/2. T9732SD?/. DTCL/ t .00-1 0/ .NOTi ST/. FALSE . / 


UPPO 

t 7 

IF(NDTIST) CO TO 100 


u»on 

fc’4 

NOT 1ST*. TRUE. 


UPO^ 

AA 

• OAYLIT=I .COO/C C*6.64DA) 


updo 


100 N=c 


upon 

/>*» • 

• 200 OPREV=DAV 


UPDO 

f * 

CALL OWOI T <C AY ) 


UPOO 


• THC TG— G WH RANtDSTAJ . ISTA1) 


UPOO 

^ A 

DAY=DST At-R( IS AT )* OAYLIT 


UPDO 

71 

DT=CABS( D AY-CPPEV) 


IJPPO 

7? 

IFI.CT.LC.DTOL) GC TO 20C . * 


UPDO 

73 

N=N+l . 


UPOO 

7A 

IFiN.LE.5) GC TO 200 


updo 

7 0 

. DT s CT *Q • f A 0 A 


UPDO 

7A 

•. PRINT 1030 « DT t DT CL 


UPDO 

7 7 

-300 1F< PREP BO) OES = OPS-RF INDX< I )/{ C . 026DC4-REN V< 3. I SAT ) J 


UPDO 

7 A 

DST A2 = SIGN*( CSTAl-DAY ) + CAY 


UPDO 

7Q 

N=0 


UPDO 

«C 

400 OPREV=DSTA2 


UPDO 

FI 

THETGsGRHB ANCOSTA2 • I S TA 2 ) 


UPDO 

b2 

DSTA2 = OAY + StGN*P(I SAT >*CAYL IT 


UPDO 

A ? 

OT«CAHS{ 3ST A2-OP^EV > 


UPDO 

P A 

IFC CT.LT.DTOL) GC TO £C C 


updo 

AO 

„ npn+i 

• 

UPOO 

P.f> 

IFCK.LE.S) GO TO 400 


UPDO 

P7 

DT=CT*B.6A0A 


UPDO 

PA 

PRINT I )C3» OT* DTOL 


UPDO 

89 

500 IFroREPBO) 0ES=QRS-RF INDX12J/C C.C26D0+-RENVI 3.ISATU 


'UPDO 

00 

RETURN 


upon 

° 1 

1003 FOP M AT ( * S**UPCOkN**S ACCE° T FD TRANSIT TIME ERROR AFTER 

St X * . 

UPOO 

Q ? 

• ' * I TERAT I GNS =*.E12.S.* SECONDS. GREATER THAN*,EI2.5, 

. 

UPDO 

03 

• # • OAYS S**U°DOWN ** %* ) 

* 

UPDO 

<34 

END 

■ 

UPDO 

05 

. ..." • • - ' .* : ■■■ •■ 

* ' '• ' * 



• » •. ....... 
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VCONV 

TO CONVERT VARIANCE-COVARIANCE PROM ONE SYSTEM T n 
ANOTHER 

CALL VCGNV< VAR IN « V AROUT , PA RTL > 

DESCRIPT ICN 

INPUT - INPUT VARIANCE-COVARIANCE MATRIX 

OUTPUT - OUTPUT VARIANCE-COVARIANCE MATRIX 

INPUT - OARTIALS OF -VAROUT- VARIABLES WITH 
RESPECT TO -VAPIN- VARIARLES 

NONE ‘ 

NONE 

NONE 

NONE ' . 


SUBROUT I NE VCONV (V AR l N. VAROUT , PARTL ) 

01 MENS I ON V ARI N C J, 3) . VAROUT (3. 3)»PARTL{3«3)«TC?) 

C PRE-MULTIPLY INPUT MATRIX MY TPANSPOSE OF PARTIAL MATRIX 
OQ 10 1=1,3 
DO l’O J = I . 3 • 

VAR CUT C I . Jl=0. 

00 lit K=t . 3 

1 C VAP OUT ( T* J ) = V AR OUT ( I . J) + »ARTL< K, I 1* VAR IN (K * J) 

"C' FOST-MULT I^LY ACCVE BY PARTIAL MATRIX- 
DO 30 1=1*3 
00 20 J = h3 
T< J >=0* 

DO 20 K = i i 3 

20 Tf J >=T< J) +VAPOUT (I *K ) APARTLCK. J) 

DO 30 J=1 . 3 
30 VAR CUT ( I • J J=T( J) 

’ . . RETURN 

* END . 


,1 

P 


VC ON 

?« 

VCON 

pn 

VCON 

30 

VCON 

31 

VCON 

■>2 

VCON 

3 3 

VCON 

3 A 

VCON' 

35 

VCON 

3ft 

VCON 

37 

VCON 

38 

VCON 

3Q 

VCON 

A 0 

- VCON 

A I 

VCON 

A2 

VCON 

A3 

VCON 

4A 

VCON 

45 


WANE 

PURPOSE 

• ^ 
CALLING SEQJENCE 

...SYMBOL TYPE 

-■ VARIK R 

VAROUT R 

PARTL R 

SUBROUTINES JSEO 
COMMON BLOCKS 
INPUT F ILES 
■OUT PUT FILES 
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VEVAL is a major subroutine in GEODYN and is closely 
; linked with the force model subroutines. Its - purpose is to 
• . evaluate the variational equations. * * 


Various intermediate data is computed in other 
routines, especially the direct partial derivatives of 
the accelerations with respect to the force model 
'coefficients being determined. SUNGRV and EGRAV also 
supply information for computing the partial derivatives 
of the gradient of the gravitational potential with respect 
_to the position of the satellite at the current time, i.e. 


a 

— (VU) 
ar 


Subroutine DENSTY supplies the partial derivative of the 
atmospheric density with respect to spheroid height. 


The order of. computation is: 


.a ;"r 

• compute U 9 = — (VU) ; 

3r ? 

. . . • • . • ' ; 

■ a ; 

• compute D = — (D) , where D is the 

' r 3r 

acceleration due to drag; 

• evaluate the variational equations. 
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NAME VEVAL 

EM TRY POINT PURPOSE 

VEVAL! INJTI ALIZATI CN 

: VEVAL 70 COMPUTE PARTI ALS. OP ACCELERATION WITH RESPECT 

TO INSTANTANEOUS CPE IT AL ELEMENTS. TO MULTIP-Y 
THESE PARTI ALS BY THE VARIATIONAL PART! ALS TD 
. • •. . OBTAIN THE VARIATICNAL ACCELERATION FOR 

INTEGRATION CP THE VARIATIONAL EQUATIONS 

CALLING SEQUENCE CALL VE VA LI < GRPAR > 

SYM80L.-. TYPE DESCRIPTION 

GRPAR DP INPUT - PARTI ALS CF FORCE MODEL PARAMETERS 

13.1) 

CALLING SEQUENCE CALL VE VALlXI .FCT . MCI M, FEVAL. M2 > 


SYMBOL TYPE DESCRIPTION 


HI OP INPUT - ORBITAL ELEMENTS AND VARIATIONAL PARTIALS 

CMOXM.l) 

FC7 D D I N°**T — ACCELERATIONS AND VARIATION 41 dibtu < 

t3.ll 

'MDIM, I XXPUT - DIMENSION CF X I IN THE CALLING PROGRAM 


FEVAL L INPUT - FLAG TO DETERMINE WHICH ACCELERATION 

PARTIALS APE REQUIRED: 

TRUE : WITH RESPECT TO EPOCH ELEMENTS AND 
PARAMETERS 

FALSE : WITH RESPECT TO INSTANTANEOUS 
ELEMENTS 


M2 I INPUT - VARIATIONAL EQUATION DISPLACEMENT 


SUBROUTINES USED 

RESPAR 

CLEAR 



COMMON BLOCKS 

CPARAH 

VMAT 

DRGBLK F MODEL 

VRBLOK XYZ 

INTBLK 

MOONGR 

INPUT FILES 

NONE 




OUTPUT FILES 

NONE 


• 


REFERENCES 

* 

•GECDYN 
VOLUME 1 

SYSTEMS DESCRIPTION* 

— GECCYN CCCUMEnT AT ION 





: .. • ’ ; 


’ * 


Of 5 
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• SUBROUTINE VEVAL1 (GRPAR) 

IMPLICIT RtAL*6 (A-H.C-Z) 

LOGICAL FEVAL.C wpgpr 
OOLOLE PR EC 1 51 CM MODEL 

DIMENSION 3RPARO ,1 ) .XI (MOIW.1 ) ,FCT(3.1 ) # R1 C (3 ) • P 20 ( 3 )« AL 15 
« R2D( 3*3) «P2D(3 *3) *AL20('3 *3) 

COMMON/C PAR AM/NSTA ,NMAST .NST EST , ND I M. * 9 I AS . NGP C 1 * N GP C 2* 

• NGPC CM ,NC 52 ST iCMPGPP .Li Ml ,LI M2 • NDli N* NOENST • NT IDST «NT IDEV 

• X NNR S W ,NCC) NST* NO C C NS 

COMMQN/DRC3 LK /H T .£.''31 SQ .eXPT (3 > • CO . 5GRKO* GBRHCV • V EL * V EL R ( 3) 
.. - COMMON/FMCDEL/I fCEKl .INOSX2 ,1 N0c'X3, INDEX4.CS <30,33>*N0D£;_( 3 

• COMMON/ IN TCLK/THOCT 1(2) *T HDT2S • C A* AE , AES C(2)*FS332.FFSQJ2, 

- . • CM3( 6) *B(2I *9DOT(41 | ,NECNS(1S) »NEDCV 

COMMON/ WOONGP /-UPXUVIO) . PHCM(3 .6 I *RHrSC(6>.RH0 3(6> 

COMMON/ VMAT/VM* TRX(3 .6) «U2 0(3*3 » «C1 DE R { 3 • 3 )*C2C£R( 3. 3. 3 ) 
C0MM0N/VRBLCK/A1 *CSLM<31).SNLM(31}*U1C(3)*P(33*30 )» AORN<30I 

• TPM<39) , 

COMMON/ XY Z/ X( 6) *R1 .R2*ISAT*I FORCE (2 ) 

EQU VALENCE ( PI D ( U ,C1DER( 1 .1 > ) * (PI C ( 1 ) .CIDER (1*2)1* 

• ' C AL1 D ( 1) .C1CERU ♦3)>.<SP,P<l,l))*(CP.P(2.t)>,tR2D<l.l>, 

• C2DER( 1.1*1)) . ( P2D<1 »1 ) .C2DER (1 . 1 .2) ) * < AL2C( 1. 1 )*C2D£R{ 1 
.EQUIVALENCE (PDPHDO.EXPKiJ) 

RETURN 

ENTRY VEVALC XI «FCT*MDIM*FEVAL.M2) 

-C-GS**-.* COEFFICIENT PARTI ALS IF GEOPOTENTIAL IS ADJUSTED 
IF (CMPGPR) CALL PP soar 
CALL Cl.FABf VMATPX,fi3.2J 
RX NV— 1 • C00/R1 

R3=R l*R2 

AL1D(1)^~X( 2) /A1 

%. AL1D(2)=X<1 )/Al ‘ 

AL2DC1 • 1 ) =-2. CD0*AL1D<1 ) *AL1 D(2 ) 

AL20 (2*2) =- AL2D (1*1) 

AL2D ( 1 *2)-ALlD(l) **2-ALXD(2) **2 

U10( 2 ) =L1D( 2) /CP • 

C 7=1 .CD G/rp«>P 


(3) 


NEQN=N5CN£< ISAT) 

C COMPUTE PARTIAL* CF GEOPOTENTIAL WITH RESPECT TO R« PHI, LAMBDA 
- DO XI 0 -NC-2 *1 FDEXA 
NS=31-NC 
FN1=NC4 1 

. ' r" — ■ I • D G „ 

C0=P(2*NC) 

MM>=NC4l 

do no vcsi.hmx ... . 

; • ' H S =3 A- MC - 

' FM=FM41 .0 0 
P1*P(MC *NC ) 

CI=( C S( f.c *MC ) *C SLM ( MC ) ♦ CS ( NS * MS ) *S NL M ( MC ) ) * AORN (NC 1 
C2=(-CS( NC *FC ) *SNLM(MC)*CS(NS.MS)*CSLM(MC) > * A CRM-NC I * FM 
C3=C0 

• CC**>< MC4-2 *NC1-TFM(MC+ 1 ) *P<MC*t • NC) 

U2D( 1 • t }=L2D( 1 *1 ) +F M *C1 *( FNl 41 «C0 ) *P1 

- 4&D( 2.1 ) =L20< 2. t )-FM *CI *C3 . 

L2D( 3,1 ) =L20( 3 «1 )-F M *C2*Pl 


VEVA 

57 

VEVA 

£3 

VEVA 

59 

VEVA 

6C 

VEVA 

61 

VEVA 

62 

VEVA 

63 

VEVA. 

‘‘64 

VEVA 

65 

VEVA 

66 

VEVA 

67 

VEVA 

ts 

VEVA 

69 

VEVA 

70 

VEVA 

71 

VEVA 

72 

VEVA 

73 

VEVA 

74 

VEVA 

75 

VEVA 

76 

)J) VEVA 

77 

. . _ veva 

76 

VEVA 

79 

VEVA 

eo 

'VEVA 

Cl 

VFVA 

*2 

VFVA 

AT 

VEVA 

£4 

VEVA 

es 

VCVA 

66 

VEVA 

87 

VEVA 

ee 

VEVA 

e9 

VEVA 

90 

VEVA 

91 

VEVA 

92 

VEVA 

93 

VEVA 

94 

VEVA 

95 

VEVA 

96 

VEVA 

97 

VEVA 

98 

VEVA 

99 

VEVA 

1 GO 

VEVA 

101 

VEVA 

102 

VEVA 

I C3 

VEVA 

1 04 

VEVA 

105 

VEVA 

106 

VEVA 

107 

VCVA 

103 

VEVA 

109 

“VEVA 

110 

VEVA 

ill 
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112DC 3.2*=L2D< 3.2) *C2*C3 
• V2D( 3*3 5 = 02D{ 3 .3) -F W**2 *C1 *Pl 
110 t2D( 2.2 >“L£D( ?.2>+C) * < C O-TPM ( MC MC3-FH* PI *C7 1 
C20( 1 ,1 1-2. 05C*GC/R3*U2D 11 .1 )/«2 
C2Ct 2«1 I = 12D( 2 «1 ) /(Rl *CP1 

. . C2DC 3.1 )=C2C{ 3 .1 > /PI i; ■ 

U2DC 2-2) -L2tl 2 .2) *C7*Ul 0(2) *TPM<2>/CP 
C20( 3,2>=L2C< 3.2) /CP ■ . 

L20< 1 .2 l-=U2D< 2 *I I 
L2D( 1.3)=L2C( 3,1) 

, t2DC2.3)=L2CC 3.2) . ‘ 

C=M 3) /R2 
00 205 1=1.3 

RJ DC I) = Mi)'/«l ' • - 

. a»5 pioc ijb-cwic(j > 

PJOC 3>=P10f 3)*RI NV 

... 00 2X0 1=1 .3 * 

P2Dt I .1 )=-X(3> /R3 

1FCI.EQ.3) PZD<3.3)=P2DC3,3)+P2C(3.3) 

-Ct*3.D0*X(3 )«X( U /H2 
DO 210 JJfI.3 

. , IP( J .HQ .3 ) P2DC X « J) = P2D { I » J) —X ( I )/R3 

' ~2I0 P20C I .J)=P2 0( 1 , JI+Cl *x( JJ/R3 
DO 215 1=1,3 
- -DO 2.1/» U=1 ,3 

214 R29< I ,J >=-*<! > **( J) /P3 

215 R20(I.l ?=h2DU,I)*PUV 

C COMPUTE ACCELERATION PARTIAL COMPCNPKTS FROM GFOPOT FNT T A». 
. 03 1 7 ii i =l,o 

. OO 170 K=l,3 . # ■ ' 

- . *C = 0» 000 , 

00 X 77 J=1 .3 

177 C = C*C13ER{ I .J> *C20< J.KI 

- 7 00 X 76 L=I .3 

178 VMATRXC I .L> =V*ATRX(I .L) +C*C1 DERCL.KJ 

DO 1-60 N=l.N3COY - - 

• .. IF (GM3C M.Lfc.O.ODO) GO TO X60 
C7=GM3{ N> /RH0 3( N) 

- Ce=3.0T C*C7/PH0SQ<N) 

OO X 79 1=1.3 , ' 

VMATRXC 1 .1 ) =VFATRX( I ,I)-C7 
00 179 J = I .3 

* 179 VMATRX< I . J) =VMATRX(i • J) +C6 *RHOM ( I. N>* RKOM CJ.N > 

180 CONTINUE 

OO 1?C 1=1,3 . 

OO 190 J =: .3 ■ ■ 

DO 185 K = 1 .3 

ie5 VMATRXC t, J) -VFATRXCI ,J)^U1CCK)*C2D£RU»J.K) 

190 IFCI.NE.J) .VMATRXX J.I |=VMATRX<I • J) 

NN = 3 , .. . " , 

IFt .NOT. 3U SAT) ,GT. 0.000) GO TO 300 
C COMPUTE ACCELERATION PARTIAL COMPONENT FROM DRAG 
NN=S 

-63RHO=B SRMO V/ Yz L 
BRH3TH = 3“3RHC* TMDT2S 
8RK) V=3fcJftH0 /VE L 


VEVA 

veva 

VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA-. 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
- ‘VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VF.VA 
VFVA 

MOON r. VCVA 

VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 

VEVA 

VEVA 

VEVA 

VEVA 

Veva 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VEVA 
VF.VA 
VFVA 
, VFVA 
VEVA 
VEVA 

vtva 

VEVA 
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112 

113 

114 
ITS 
116 
U? 
,na 

119 

123 
121 
122 
1 23 

124 
125' 
126 
127 
126 

129 

130 

131 
1 32 
1 23 
1 24 
1 35 
13.i 
1 37 
13R 
1 -xo 

140 

141 

142 

143 
I A A 
1 A 5 
1 A6 
1 47 
1 48 
1 49 
1 50 
1 51 
1 52 
153 
1 54 
1 55 
156 
1 £7 
158 
109 
160 
161 
162 
153 
1 6a 
1 65 
1 66 
167 
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BRHTDV=aRHD V*T>OT2S 
•• 'C1=2.00<F SQS2FSP5I S0-FFSCi32 
C2=2*DC *C 1 /R1 

C3-t SPSI SO— 1 • C 0 ) *C2 * 

C2-SP SI SO *C 2 ‘ 

CC=3BRHC V^CPhOO /Rt : 

Cl=< 1.DC+C2 i *.CO ‘ 

VELR< 3>=X(0) "■•••.* 

E*PTX : J = XU > <C1 
£XPTC2>=X(£)«C1 

;£XPT( 3) = Xl3 ) *(C3+.l .00) *C3 • , 

‘ Cl =SRHTDV*V£l.P( 1 ) *V£LR(2| 

VMATR/C I»2i svVATRXd . 2 ) -ERh OTH* (VEL-WELR(1 J**2/VZX> 

VHATR X( 2 *1 ) = VMA TP Xi 2 , 1 > +GRHOTH* < V£L+VELR(2 )**2/VEL i 
VMATRM 1.1) — VP A TP X ( 1 . i I +C1 

VMATPX{2*2) »VVA7RX(2 ,21 -Cl . . 

VMA TR X( 2 « 1 ) -V VA TRX (3.1) f 2PH7 CV * VELf? C 3 ) *VEL R ^2 J 
VMATP X( 3 ,2) =VMATRX( 3 .2) - 3RHT DV * VELR ( 3 ) * V ELR ( 1 1 
DO 200 1=1.3 
00 200 J = 1 .3 
Jl=Jf3 

IF(X.EQ.J) VMATRXM .Jll aVVATPX ( 1 .J! )-C3RH0V 
VHATR X( I • Jl = V VA TRX ( I »J)— VELRCI) *tXPT (J) 

200 VMATKXC I.J1 )-VMATRX(I • Jl I -6RHDV * VELR < X ) *V ELR t J > 

300 DO 3Ci J = 1 .6 • 

K0-( J- 1 ) * v 2 ♦ 1 

DC 301 1=1.3 

301 FCT< ? ,Kfi»sri.1fl ' 

IF < NEQN • L T. 6 ) GC TO 30A 

C C.OHPLTE ACCELERATION PARTI ALS WITH RESPECT TO EPOCH PARAMETERS 
.. ... DO 302 LI =B .NEON * 

KC = < Ll-2> 1 

KOC=Ll- 7 . - ’ 

-OO 302 1—1*3 

302 FCT( I *K C) =GPPAR(I *KOOI • 

3 04 I F ( .NOT .FEVAL ) RETURN - *. 

.DO 30S L1=2.NE0N 

KC-( Ll-2) 4M2+1 
DO 305 1 = 1 .3 
SUM=O.DC 
DO 306 J=1 .KM 

306 SUy=SUM<-VMA TPX{ I . J) *XI { J*L1 > 

305 FC Tt I .KC)=FCT( I ,K0) frSUM 
RETURN 

END ' 


VEVA If.* 
VEVA 16- 
VEVA S7J 
veva it: 
VEVA 1.1 

veva i t: 

VEVA 1 7 ‘ 
.VEVA 17*; 
VEVA 17*. 
VEVA I v. 
VEVA 1 7 1 
VEVA IT? 
VEVA 16; 
veva l s: 
VEVA is: 
veva u; 

VEVA 1 
VEVA 1 
VF.VA 1 
VEVA 1 £: 
VEVA if? 
VEVA 1E-; 
VEVA : ACt. 

veva lv: 

VEVA !<;: 
VEVA 1 $ J 
VFV1 1 r- i- 
VEVA * “J 
VEVA 19-: 
VEVA 1"' 
veva 

VEVA : r 

veva 2 : : 
veva 2 r; 

VEVA 2Ci 
VEVA 2?2 
VEVA 20* 
VEVA 2C5 
VEVA ?Cz 
VEVA 2C? 
VEVA 20£ 
VEVA 2C^ 
VEVA 2 1C 
VEVA 2it 
VEVA 212 
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MME YMDAY 

PURPOSE TO COMPUTE FOR A GIVEN DATE THE NUMBER 0= DAYS FROM 

JAN C.O OF THE REFERENCE YEAP FOR TH= ARC 


CALLING SEQUENCE 

X=YMOAY ( IYMD. 

I HM 

♦ SEC) 



SYMpCL 

TYPE 

DESCRIPTION 





JYMD 

I 

INPUT - DATE 

IN 

THE FORM 

OF 

YYMMOD 

I HM 

I 

INPJT - TIME 

IN 

THE FORM 

OF 

HHMM 

SEC 

t 

R 

INPUT - SECONDS 





YMDAY OP OUTPUT - NUMBER OF DAYS FROM JAN 0.0 OF THE 

PEFERE'JCE YEAR »" 0 c* THE ARC 


SUBROUTINES USED 

C IFF 

CCMMCN CLOCKS 

CT IME 

INPUT F ILES 

NONE 

OUTPUT FILES 

NONE 



' — OOU6LE PRECISICN FUNCTION YMDA Y ( I YMD .* I HM , SEC ) * YMn A **C 

IMPLICIT (A-H.C-Z) . . . VMDA 31 

COMMON/CT I ME/C AYF.FFf 1 1) . IYREG YMDA ? ?. 

iysIYBEO*j OOCO + IOI Ymda 31 

XHMS = IHM*ioo YMO A 3& 

CALL XII^F ( IY .0 , I YMO. I H«S. ID. IS ) YMPA 3S 

YMDAY=8SA 00* I I C + l ) 4-1 S YMDA 3 A 

YMDAY— ( YMD AY *SEC l/B . 6 AD4 37 

RETURN - ' *■ > YMDA 

END yMDA 
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SECTION 9.0 f 

. COMMON . BLOCK DESCRIPTIONS 

- • 

The GEODYN program contains 39 common blocks. Each 
common block is fully described on the following pages. Some 
common blocks have more, than one .version. Each version is 
described. 



. /ALPMRC/ . 

COMMON/ ALPMRC/ITNMS (S) .TIMING, BLANK, ATYPE(31) , 
UNITS (IS), ELCUT, HYPER 


Variable 

Type 

Hex Location 

• • , 

Description 

Programs • 

Where 

Defined 

Programs 

Where 

Used 

ITNMS 

(5) 

R*8 

000000 

Alphanumeric 
information for 
printout. 

BLOCK DATA 

IiiPUPT 

TIMING 

R*8 

000028 

Alphanumeric 
information for 
printout . 

BLOCK DATA 

NONAME 

INOUPT 

BLANK . 

R*8 

000030 . 

Alphanumeric , 

information for 
printout , 

BLOCK DATA 

NONAME 

inoupt ; 

SUMMRY ; 

ATYPE 

-(3D 

R*8 

000038 

Alphanumeric 
information for 
printout. 

BLOCK DATA 

NONAME : 
INOUPT 
SUMMRY 
TYPORB 

UNITS 

(15) 

R*8 

000130 

Alphanumeric 
information for 
printout . 

BLOCK DATA 

NONAME 
INOUPT ’ 

ELCUT 

R*8 

0001A8 

Elevation cutoff 
angle. 

INOUPT 

NEWARC 

NONAME j 
DATARD | 
INOUPT | 

HYPER 

L* 4 

000 IB 0 

Hyperbolic element 
switch. 

MAIN 

MAIN ; 

DATARD | 


ELEM 



' ■*. 

Variable 

, /APARAM/ , 

COMMON/ APARAM/ INPAR, INPARI .NBIAS, 
ESTSTA , N SAT , NGPARC , NORE C 1 , N PAR AM 

Hex Program 

Type Location Description Where Defined 

Program 
Where Used 

INPAR 

1*4 000000 ‘ . 

Number of 

NONAME 

NONAME 



force model 

NEWARC 

NEWARC 



parameters 


PREDCT . 


' . ■ ■ — ’ ' - " '■ ’ 

to be inte- 


STORE * 


... 

grated. 



INPARI 

1*4 000004 

Number of 
force model 

INOUPT 

ARCPAR 

MAIN 

NONAME 


X 

parameters 


ARCPAR 

' * 

’ 

in arc. 

■ 

ESTIM 

INOUPT 

r* * 



# 

NEWARC 

STORE 

NBIAS 

1*4 000008 

Number of 

INOUPT 

MAIN 

« 


biases in 
arc. 

BIAS 

NONAME 

ARCPAR 

BIAS 

DODSRD 

ESTIM 

GEOSRD 

INOUPT 

NEWARC 

SIMRD 

STORE 

HSTSTA 

1*4 00O00C. 

Number of 

NEWARC 

NONAME 



adjusted 


NEWARC 



stations . 


STORE 

NSAT 

1*4 000010 

Number of 

MAIN 

MAIN # 



satellites 
in arc. 


NONAME 

APPER 





ARCPAR 





BMTWRT 





BSCOMP 





ESTIM 


f 



GEOSRD 


- .* 



GRHRAN 

• 



" ’ , ; ■ ; '' r - 

INOUPT 





NEWARC 

ORBIT 




• - . *■ 

PREDCT 


• 



SIMRD ‘ 



9.0-3 
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/APARAM/ (Con t.) 


Variable 

T yP e 

Hex 

Location 

Description 

Program 

Where Defined 

Program 
Where Used 

NGPARC 

1*4 

000014 

Number of 
adjusted 
arc geopo- 
tential co- 
efficients 

INOUPT 

MAIN 
NONAME 
• ARCPAR 
. BIAS 
DATARD 
ESTIM 
INOUPT 
NEWARC 
. STORE 
UPDATE 

RECNOl 

♦ 

1*4 

000018 

Number of 
record of 
first ob- 
servation 
in arc. 

INOUPT 

* 

NONAME 

INOUPT 

NEWARC 

STORE 

NPARAM 

1*4 

00001C 

Number of 
parameters 
in arc. 

NONAME 

NONAME 

BSCOMP 

DATARD 


ESTIM 

""NEWARC 

STORE 

SUMMRY 

UPDATE 


NEB I AS 

■1*4 -0Q03DC -Number of 

- INOUPT 

--MAIN 


electronic 


NONAME 

• ' 

• biases in 


- —ARCPAR 


arc. 


BSCOMP 


C BROWN 

DATARD 

INOUPT 

”NEWARC 

STORE 


MAXPAR 

1*4 

OOOOOC 

Number of 
parameters 

ESTIM 

BSCOMP 

ESTIM 




per measure- 


NEWARC 




ment for 
iteration. 

' 

- STORE 


y 

» 
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/CELEM/ . ' 

C0MM0N/CELEM/ELEMST(6 , 2) ,0RBELAC6,2) ,XNU,EC,RMSTOT 


Variable 

T/pe 

Hex Location 

Description 

Programs 

Where 

Defined 

Programs 

Where 

Used 

ELEMST 

(6,2) 

R*8 

000000 

Epoch cartesian- 
elements. 

MIN 

NONAME 

MAIN 

NONAME 




dodelm 

ESTIM 

COWELL 

DATARD 





ORBIT 

DODELM 




• 

\ UPDATE 

ESTIM 

INOUPT 


* . 

v • 



ORB1 . 
ORBIT 
STORE 






TYPORB 

UPDATE 

ORBELA 

R*8 

000060 

Epoch Kepler 

MAIN 

MAIN 

(6,2) 


-• 

^-elements . 

% 

NONAME 

DODELM 

ORBIT 

NONAME 
APPER 
-DATARD 
DODELM 
INOUPT 
ORB1 
ORBIT 
— STORE 
TYPORB 

XNU 

R*8 

ooooco 

True anomaly. 

elem"- 

DATARD 

. 

* 


... .. . 


---ELEM 

ORB1 




- 

■ 

STORE 

EC 

R*8 

0000C8 

Eccentric anomaly. 

ELEM 

* DATARD 
ELEM 
ORB1 






STORE 

RMSTOT 

R*4 

• OOQODO 

Total RMS 

NONAME 

INOUPT 

NONAME 

DATARD 






INOUPT 



* . 



NEWARC 

STORE 






SUMMRY 

TYPORB 


.9.0-5 



/CEPHEM/ (Version 1) 

" ' COMMON/CEPHEM/ AO, PMOON, SUN, ANUT, DUMMY 

• ♦* - . Hex ‘ . -V Program Where . Program 

) Variable Type Location Description Defined Where Use 


AO 

R*8 

• 000000 

Unit vector and 

EPHEM 

DEN STY 

(25) 



center of mass 
distance from 
earth to 


EPHEM 

F 

GRHRAX 




MOON 


PR0CES 

SUNGRV 


■- 

. 

SUN 

ArnMiiC 

. 

TIDAL 


MARS 

JUPITER 




V 

SATURN 


• 

• 


plus 

A0 ( 25) - 
nutation in 
right ascension 
(equation of the 
equinoxes) . 


PMOON 
• (306) 

R*8 

0000C8 

Buffer for lunar EPHEM 
position' and inter- 
polation informa- 
tion 

EPHEM 

SUN 
— ( 2703 

R*8 

000A58 

Buffer for solar EPHEM 
--and planetary 
position and inter- 
polation information 

EPHEM 

ANUT 

(102) 

R*4 

0012C8 

Buffer for nuta- EPHEM 
tion information 

EPHEM 

DUMMY 

R* 8 


-Dummy 

* 



9.0-6 



/CEPHEM/ (Version 2) 

COMMON/ CEPEHM/JNAME , ISTARD ,ESTANO , I STAN 0 


Variable 

Type 

'Hex 

Location 

Description 

Program Where 
Defined 

Program 
Where Used 

JNAME 

(381) 

R*8 

000000 

Names of sta- INOUPT 

tions read from 
• input 

DODSRD 

INOUPT 

ISTARD 

(381) 

1*2 

00BE8 

Numbers of 
stations read' 
from input 

INOUPT 

DODSRD, 
. GEOSRD 
INOUPT 
SIMRD 

ESTANO 

(381) 

1*2 

4 

OOOEE2 

Master station 
array for 
station adjust- 
ment 

INOUPT 

INOUPT 

STAINP 

ESTANO 

(386) 

1*2 

0011DC 

Number of 
stations to 
be used 

INOUPT 

DODSRD 

GEOSRD 

BIAS 

DODSRD . 
GEOSRD 


SIMRD INOUPT 

SIMRD 
* STAIiXP 


/CGEOS/ (Version 1) * # 

COI4MON/CGEOS/ ISATID.(2) > THETGO(15} , IG6 (423) 


Programs Programs 

Where Where 


Variable 

Type 

Hex Location 

Description 

Defined 

Used 

ISATID (2) 

R*4 

000000 

— 

— 

Not Used ! 

THETGO 

(15) 

R*8 * 

.000008 

Right ascension of 
Greenwich in degrees 
oh Jan. 0.0 from 
1958-1975. 

JANTHG 

JANTHG 

■ j 

i 

i 

• ■ i 

IG6 (423) 

R*4 

000080 

- — 


Not Used 


j 

i 

L 






/CGEOS/ (Version 2) 

» • 

COMMON/CGEOS/ ISATID ( 2) , IPREPR(4 , 5 0) , RFINDX (2 , 50) , 
' INDPRE (2,5 0) ,NOPRPR ,NS IG , NCULL , SIGCHG C 50) , 
IMTYPE (50) , ISTNO (50) , CULL (2, 100) 






Programs 

- Programs 



- 


Where 

Where 

Variable 

lyp e 

Hex -Location 

Description 

Defined 

Used 

ISATID 

1*4 

000000 

Satellite ID 1 s . - 

INOUPT 

NONAME 

(2) 


* 



DODSRD 

GEOSRD 

INOUPT 

ORB1 

PROCES 



* 

■ ^ 


SIMRD 


« 


1 


TYPORB 

IPREPR 

1*2 

000008 

Preprocessing 

INOUPT 

DODSRD 

(4,50) 



indicators . 


GEOSRD 

INOUPT 






PRNTPR 

RFINDX 

R84 

000198 

Tropospheric 

INOUPT 

DODSRD 

(2,50) 



refraction indices 


GEOSRD . 




and constant tim- 


INOUPT 


- 

• ■ 

ing .corrections 


PRNTPR 

. JNDPRE 

1*2 

000328 

Station numbers and 

INOUPT 

DODSRD 

(2,50) 



measurement types 


GEOSRD 




for preprocessing. 


INOUPT 

PRNTPR 

~;"~NOPRPR 

i*4 

0003F0 

Number of PREPO 

INOUPT 

DODSRD 




cards input. 


GEOSRD 



- ■ 

— ■ - • 


INOUPT 






•NEWARC 






• PRNTPR 

NSIG 

1*4 

0003F4 

Number os SIGMA 

INOUPT 

DODSRD 



■ 

cards input. 

• V . ' 

GEOSRD 

INOUPT 

NEWARC 

. 


• . . ■ ■ : ■ * '• 



PCERD 



.i 

♦. > » * 


SIMRD 

NCULL 

1*4 

0003F8 

Number of CULL 

. INOUPT 

DOSDRD 




sets. 

* 

GEOSRD 



• 


- 

INOUPT 

NEWARC 

PCERD 





‘'v.- . 

SIMRD 





* 


/CGEOS/ (version 2) (Cont.) 


Variable 

lZ2. e „ 

Hex Location 

Description 


Programs 

Where 

Defined 

Programs 

Where 

Used 

SIGCHG 

R*4 

0003FC 

Input sigma 


INOUPT 

DODSRD 

"(SO) 

• 



changes . 



GEOSRD 

INOUPT 

NEWARC 







PCERD 

IMTYPE 

1*2 

0004C4 

Sigma change 


INOUPT 

SIMRD 

DODSRD 

(SO) 



types. 



GEOSRD 

INOUPT 


* 



• 


NEWARC 

PCERD 

SIMRD 

ISTNO 

1*2 

000528 

Sigma change 


INOUPT 

DODSRD 

(50) 

CULL 

1*2 

0058C . 

stations . 
Cull sets. 


INOUPT 

GEOSRD 

INOUPT 

NEWARC 

PCERD 

SIMRD 

DODSRD 

(2,100) 

. 



% • 


GEOSRD 

INOUPT 


NEWARC 

PCERD 

SIMRD 



/CONOUT/ 

COMMON/ CON OUT /RMS ALL , OUTCON , MI NOUT,MAXOUT , LITRES , 
‘ ... - . MAXS AT , MAX 2 1 N , NS T ART , NE QNMX , I V AR , 1 0 RDE R , NA RC S , 

‘ "NSTARD , LSTART (6) 


• Variable 




Programs 

Where 

Type 

Hex Location 

Description 

Defined 

• RMS ALL 

R*4 

000000 

RMS for all arcs. 

MAIN 

OUTCON 

R*4 

000004 

Outer iteration 

convergence 

criterion. 

INOUPT 

MINOUT 

1*4 

000008 

Minimum number of 
outer iterations. 

INOUPT 

•MAXOUT 

1*4 

oooooc 

Maximum number of 
outer iterations. 

INOUPT 

- LITRES 

L*4 

000010 

Indicates that 
adjustment not 
requested on last 
inner iteration. 

INOUPT 

MAXSAT 

1*4 

000014 

Maximum number of 
satellites per arc. 

MAIN 

MAX2IN 

.1*4 .... 

-00001S 

—Maximum number of 
inner iterations on 

nonaMe 



—outer iterations after 
first outer iteration. 

"'"NSTART 

'1*4 

00001C 

Parameter number of 
% first common para- 
meter. 

COMPAR 

ESTIM 

NEQNMX 

1*4 

000020 

Maximum number of 

MAIN 


force model equa- 
tions to be inte- 
grated for one arc. 


Programs 
Where 
Used 

MAIN 

NOiVAMh 

NONAME 

INOUPT 


NONAME 

INOUPT 

NONAME 

INOUPT 

NOXAME 

INOUPT 


MAIN 
CBROWN 
’ "DATARD 

-■ NONAME 


* NONAME 
C BRONX 
- COMPAR 
ESTIM 

MAIN 
: CBROWN 
ESTIM 
ORBIT 




• 

' 

/CONOUT/CCont.) 

♦ - 


Variable 

Type 

Hex Location Description 

Program 

Where 

Defined 

Programs 

Where 

Used 

IVAR 

m 

1*4 

000024 

=1 for fixed step 
' integration 

-2 for variable' 
step integration 

MAIN 

MAIN 

IORDER 

1*4 

' 000028 

Not Used. 



NARCS 

1*4 

00002C 

’i, 

Number of arcs. 

MAIN 

MAIN 
NONAME . 
ARCPAR 

NSTARD 

’1*4 

000030 

Number of tracking 
stations read from 
input. 

INOUPT 

COMPAR 

INOUPT 

START R . 

L*4- 

000034 

.TRUE.- Restart tape 
input . 

INOUPT 

NONAME 

INOUPT 

STARTV; 

L*4 

000058 

.TRUE.- Restart tape 
output . 

INOUPT 

NONAME 

DATARD 

INOUPT 

STARTA 

1*4 

00003C 

Number of arc where 
restart will begin. 

INOUPT 

NONAME 

INOUPT 

STARTO 

1*4 

000040 

Number of outer 
iteration where 
restart will begin, 
(not used) 

INOUPT 

NONAME 

INOUPT 

INSTRT 

1*4 

000044 

Input restart tape 
number. 

INOUPT 

. NONAME 
INOUPT 

OUT ST R 
• # • * 

1*4 

000048 

Output restart tape 
number. 

INOUPT 

NONAME 

DATARD 

INOUPT 


: 9.0-12;; 


,i 

» 




. 

>• 

/CONSTS/ 

v - 



' * 

COMMON/CONSTS/DPI .DTWOPI ,DRAD 

,DRSEC 






Programs 

Programs 





Where 

Where 

Variable 

Type 

Hex Location 

Description 

Defined 

Defined 

DPI 

R*8 

000000 

TT 

' BLOCK DATA 

NONAME 



-w„ • * 

• • . 


AVGP0T 

DENSTY 

PREDCT 






PROCES 






TYPORB 

DTWOPI 

R*8 

000008 ’ 

2tt 

BLOCK DATA 

NONAME 


* 


/• ' . 

f 

DENSTY 

DPFCT 


9 




ELEM 

GEOSRD 

GRHRAN 

NEWARC 




• 


ORB1 

PREDCT 

PROCES 

TYPORB 

DRAD 

R*8 

000010 . 

2ir/360 

BLOCK DATA 

NONAME 




Conversion 

% 

APPER 


1 


factor for con-- 


ARCPAR 




verting degrees 


AREAS 




to radians. 


AVGPOT 

DELTAZ 


• 

-• 



DODELM 


ELEM 
GEOSRD 
INDENT 
.•JANTHG 
NEWARC 
ORB I 
PCERD 
POSYEL 
PREDCT 
STAINP 
TWPSTA 
TYPORB 


: 9.0-i.V- 



/CONSTS/ (Cont.) 


Variable 

T yP e 

Hex Location 

Description 

Programs 

Where 

Defined 

Programs 

Where 

Used 

DR SBC 

R*8 

000018 

2n/360/3600 

BLOCK DATA 

NONAME 
COMAD J 
. - COMPAR 
. ‘ DODSRD 
GEOSRD 
INOUPT 
.. PCERD 
PROCES 
SIMRD 
SUMMRY 


r 

\ 

> 

! 


9_*_CLrJL4 



/C0RB1/ 

COMMON / CO RB 1 / RANDOT ( 2 ) ,PERDOT(2) ,PERHT(2) ,APHT(2) , 
PRD (2) * 


Variable 

Type 

Hex Location 

Description 

Programs 

Where 

Defined 

Programs 

Where 

Usea 

RANDOT (2) 

R* 8 

000000 

% 

Time derivative of 
the right ascension 
of the ascending 
node . 

NONAME 

N ON AM E 
INOUPT 
ORB1 
■ PREDCT 
TWOSTA 
TYPORB 

PERDOT(2) 

R*8 

000010 

Time derivative of 
the argument of < 
perigee . 

NONAME 

NONAME 

ORB1 

PREDCT 

TWOSTA 

TYPORB 

PERHT(2) 

R*8 

000020 

Perigee height. 

APPER 

APPER 

INOUPT 

0RB1 

TYPORB 

APHT(2) 

R* 8 

000030 

Apogee height. 

APPER 

APPER 


ORB1 

TYPORB 


— £RD(2) R*8 —000040 -Orbital period. -NONAME NONAME 

• INOUPT 

, * ' . ••• .. ORB1 

PREDCT 

. *' ■ ' TYPORB 



' * /CPA RAM/ 

•; COMMON/ CP ARAM/ NSTA f NMAST , NSTHST ,ND IM ,MBIAS 
: v NGPC1 , NGPC2 , NGPCOM , NCSEST , CMPGPR , 

* LIM1 ,LIM2 ,NDEN, NDENST ,NTIDST , 

* ntiden , innrs w, nconst , ndcons 




Hex 

* 

Program 

Program 

Variable 

Type 

Location' 

Description 

Where Defined 

Where Used 

NSTA 

1*4 

000000 

Number of 

DODSRD 

MAIN 




tracking 

GEOSRD 

ARCPAR 1 




stations. 

SIMRD 

CBROWN 





INOUPT 

COMPAR 





CBROWN 

CONSTS 






DODSRD 



• v 

• - ' .. • - . 


GEOSRD 

* 





INOUPT 





• 

SIMRD 






• SUMMRY 

NMAST 

1*4 

000004 

Number of 

INOUPT 

MAIN 




adjusted 


NONAME 

* 



master 


BMTWRT 




stations . 


CBROWN 






COMADJ 






COMPAR 



• ' . 



CONSTS 



, 



ESTIM 


- 




. INOUPT 


* 




PDEN 

— NSTEST 

1*4 

000008 

Number of 

INOUPT 

MAIN 




estimated 


NONAME 



— . . 

stations . 


BMTWRT 






CBROWN 






COMADJ 






COMPAR 





. ■ ■ V " ■■ • ' 

CONSTS 






ESTIM 



• ; ' l . ■ • * 



INOUPT 

. NDIM 

1*4 

oooooc 

Maximum 

MAIN 

MAIN . 




dimension 


.NONAME 




of normal 


. BMTWRT 




matrix. 


BSCOMP 



.. . 


• . • . ; 

CBROWN 






COMADJ 


COMPAR 

CONSTS 

DATARD 

ESTIM 

PDEN 

UPDATE 


o n i * 



. /CP ARAM/ (Cont.) 

. * ' Hex . Program 

Variable Type Location Description Where Defined 

MB IAS 1*4 . 000010 Maximum MAIN 

number of 
biases plus 

• • .. ' drag and 

solar radi- 
' . ation pres- 
sure param- 

■ .V ..... . eters 

‘ ‘• w - • estimated 

in any one 

. arc-. 

NGPC1 1*4 000014 Relative lo- MAIN 

. ' cation of 

first common 

. - adjusted 

geopotential 

coefficient. 

NGPC2 1*4 000018 Relative lo- MAIN 

. cation of 

last common 
adjusted 
geopotential 
coefficient. 

NGPCOM 1*4 00001C Number of MAIN 

common ad- 
justed geo- 
•_ potential 

coef- 

. f icients . 


NCSEST 1*4 000020 


» 


9.0-17 


Number of INOUPT 

adjusted NONAME 

geopoten- 
tial coef- 
ficients in 
this itera- 
tion. 


Program 
Where Used 

MAIN 
ARC PAR 
CBROWN 
CONSTS 

datArd 

ESTIM 

UPDATE 


MAIN 

CONSTS 

DATARD 

ESTIM 


MAIN 

CONSTS 

ESTIM 


MAIN 

NONAME 

ARC PAR 

BMTWRT 

BSCOMP 

COMADJ 

COMPAR 

CONSTS 

DATARD 

ESTIM 

MAIN 

NONAME 

ARCPAR 

BMTWRT 

CBROWN 

COMADJ 

COMPAR 

CONSTS 

DATARD 

INOUPT 

RESPAR 






/CP ARAM/ CCont 

•> 




Hex 


Program 

Program 

Variable 

Type 

Location 

Description Where Defined 

Where Used 

CMPGPR 

L*4 ' 

000024 

Logical 

NONAME 

MAIN 




switch 


NONAME 




for geopo- 


ARCPAR 




tential 


• CONSTS 

• * 



partial com- 


VEVAL 




putations 






True- 


‘ ** • . 


• . ■••• • 


partials are * 


•C\ 




computed , 

- 


LIM1 

1*4 

000028 

Size of nor- 

NONAME 

NONAME 




mal arrays 


CONSTS 




to be 


ESTIM 

: • i 



cleared . 



LIM2 

1*4 

00002C 

.GT.O indi- 

nonXme 

‘ NONAME 

/ 



cates last 


CONSTS 

. 



inner 


ESTIM 




iteration. 



NDEN 

1*4 

000030 

Number of 

INOUPT 

MAIN 


* 


surface 


NONAME 




densities . 


CBROWN 






COMPAR 



- 

. * ’ 


CONSTS 






GEOIDH 


* • 

* • • ‘ • - 



INDENT 






INOUPT 






PDEN 






SURDEN 

— “~NDENST 

1*4 

000034 

Number of 

INOUPT 

MAIN 




adjusted 


CBROWN 



_ . . ~ . ... .. _ 

: — surface 


COMAD J 




densities . 


CONSTS 





- . - • 

GEOIDH 

: ■ • ■ ■ . 





INDENT 






INOUPT 

.* • m • ‘ 


• 



PDEN 






SURDEN 

NTIDST 

1*4 

000038 

Number of 

CONSTS 

MAIN 



■ 

adjusted 


CBROWN 


» 


tidal 


CONSTS 

. .. '■■■' 


v • * 

- parameters . 






9^.0 -1 8_- 

‘ *■ ” \ * ' 




Variable 

NTIDEN 


INNRSW 


NCONST 


NDCONS 


/CPARAM/ (Cont.) 



Location 

Description 

Program 
Where Defined 

Program 
Where Used 

1*4 

00003C 

Number of 

MAIN 

MAIN 



adjusted 
tidal and 
density 
parame ter s . 


NONAME 

BSCOMP 

CBROWN 

COMADJ 





COMPAR 
CON STS:. - 
ESTIM 

- 




RESPAR 

L*4 

000040 

Logical 

NONAME 

NONAME 



switch. True- 
last inner 
iteration 
and surface 
densities 
adjusted. 

». 

CONSTS 
. SURDEN 

1*4 

000044 

Number of 

INOUPT 

MAIN 


- 

surface den- 
sity, con- 
straint 
equations . 


CBROWN 

CONSTS 

GEOIDH 

INOUPT 

PDEN 

SURDEN 

1*4 

000048 

Maximum 

% 

• INOUPT 

CONSTS 

degree and 
order of sur- 


• GEOIDH 
INOUPT 


face density 


- constraint 
equations , 



Variable 

LLIMIT 


ULIMIT 


/CSLIM/ 

COMMON/ CSLIM/ LLIMIT, ULIMIT 


■ Program 
Where 

Type Hex Location Description Defined 

1*4 000000 LLIMIT (N) is the EGRAV 

minimum order plus 
one of terms of 

. • degree N which are 

used in the geopoten- 
tial expansion. 

v 

1*4 00007C ULIMIT (N) is ths EGRAV 

maximum order plus 
one of terms of 
degree N which are 
used in the geopo- 
tential expansion* 



Programs 

Where 

Used 

EGRAV 


EGRAV 

GEOIDH 



.. - /CSTAT/ 

COMMON/CSTAT/RESID , SIG ,NMTOT .WTSUMT 


• Programs Programs 

Where Where 


Variable 

Type 

Hex Location 

Description 

Defined 

Used 

RESID 

f k 

R*8 

000000 

Measurement residual. 

STAINF 

STAINF 

SMSTAT 

d* 

SIG 

R*8 

000004 

Measurement sigma. 

STAINF 

STAINF 

SMSTAT 

NMTOT 

1*4 

000008 v 

Total number of 
weighted measure- 
ments in arc. 

STAINF 

SMSTAT 

STAINF 

SMSTAT 

WTSUMT 

4 

R*8 

oooooc 

Sum of squares o'f 
weighted residuals 
for the arc. 

STAINF 

SMSTAT 

BMTWRT 

STAINF 

SMSTAT 





9.0-21 



/CSTHET/ 

COMMON/CSTHET/CTHETG,STHETG 





- 

Programs 

Where 

Programs 

Whe^e 

Variable 

Type 

Hex Location 

Description 

Defined 

Used 

CTHETG 

R*8 

000000 

Cosine of right 
ascension of 

GRHRAN 

SURDEN 

DPFCT 

GRHRAN 


. 


Greenwich. 


SURDEN 

STHETG 
# ' 

R*8 

000008 
• % 

Sine of right 
ascension of 
Greenwich. 

GRHRAN 

SURDEN 

DPFCT 

GRHRAN 

SURDEN 



f 

i 


9 . 0-22 



/CTIME/ , 

‘ COMMON/ CT IME/DATAEP , DAY RE F , DSTART , DAYSTP , DAY I NT , 
. DORBIT jDAYEND ,DRATE , DORB1 j DORB1E, ORBRT , IYBEG 






Programs 

Programs 





Where 

Where 

Variable 

Type 

Hex Location 

Description 

Defined 

Used 

DATAEP 

R*8 

000000 

Epoch of data in 
days from Jan 0.0 
of the reference 
year.* 

MAIN 

MAIN 

NONAME 

DATARD 

DENSTY 





- DODELM 
DODSRD 



*• 

« 



GEOSRD 
. INOUPT 
ORBIT 
PCERD 
SIMRD 
STORE 

■ 





TYPORB 

DAYREF 

R*8 

000008 

Reference date in 

MAIN 

MAIN 




days from Jan 0.0 


DATARD 




of the reference 


ORB1 




year . 


REFCOR 




# % 


STORE 

j 

. : 




TYPORB 

DSTART 

R*8 

000010 

Epoch in days from 

MAIN 

MAIN 




Jan 0.0 of the 

DODELM 

NONAME 




"reference year. 

ORBIT 

COWELL 

DATARD 





.♦ - 

DODELM 






.F 




. • * % v.. ;• ■ . 


. INOUPT 






ORB1 

ORBIT 


STORE 

TYPORB 



Variable 

DAYSTP 


i)AYINT 

DORBIT 


DAYEND 

DRATE 


DORB1 


/ CTIME/ (Cont . ) 


Type Hex Location 
R*8 000018 


Description 

Data stop time in 
days from Jan 0.0 
of the reference 

year. 


.« 



Programs 

Where 

Defined 

MAIN 


R*8 000020 • Current integration F 

time in days from 
Jan 0.0 of the 
reference year . 

R*8 000028 Start time for orbit INOUPT 

generator in days NEWARC- 

from Jan 0.0 of the 
reference year. 

r* 8 000030 Stop time for orbit INOUPT 

generator in days NEWARC 

from Jan 0.0 of the 
reference year. 

R*8 000038 Output interval for INOUPT 

orbit- generator in -NEWARC 

days. 


Start time for ORB1 INOUPT 
tape in days from NEWARC 
Jan 0.0 of the 
reference year. 


R*8 000040 


y 


Programs 

Where 

Used 

MAIN 

DATARD 

DODSRD 

GEOSRD 

INOUPT 

NEWARC 

PCERD 

SIMRD 

STORE 

TYPORB 

DATARD 

DENSTY 

F 

STORE 

NONAME 

DATARD 

INOUPT 

NEWARC 

STORE 

NONAME 
DATARD 
INOUPT 
- NEWARC 
STORE 

NONAME 
- DATARD 
INOUPT 
# NEWARC 
STORE 

NONAME 
DATARD 
INOUPT 
NEWARC 
ORB1 
. STORE 



/CTIME/(Cont.) 


Variable 

Type 

Hex Location 

Description 

Programs 

Where 

Defined 

Programs 
Where ■ 
Used 

D0RB1E 

• 

R*8 

000048 

Stop time for 
ORB1 tape in days 
from Jan 0.0 of 
the reference year . 

INOUPT 

NEWARC 

DATARD 

INOUPT 

ORB1 

STORE 

u * 

ORBRT 

R*8 

000050 

Output interval 
for 0RB1 tape in 
integral seconds. 

INOUPT 

NEWARC 

C.. 

NONAME 

DATARD 

INOUPT 

STORE 

IYBEG 

1*4 

000058 

Reference year. 

1 

MAIN 

MAIN ' 

DATARD 

DATES 

STORE 

YMDAY 



/CSTINF/ (Version 1) 

. COMMON/ CSTINF/MEASO (4) ,N0BS(4) ,RDMHAN(4) ,RMSO(4) 
RND(4) .MEASKT (4) , h'TMEAN ( 4 ) ,RMSWTO(4) ,WTRND(4) , 
TYPRJ4S (4) .NOTYPE (2 , 30) BSUM (8 , 12) ,RMSALL(30) , 
NOALL(30) ,NOWTOB , JBASE 


Variable 

Type 

Hex Location 

Description 

Programs 

Where 

Defined 

Programs 

Where 

Used 

MEASNO 

R*8 

; 000000 

Measurement type 
numbers . 

RMS CMP 

C- 

RMSCMP 

SUMMRY 

NOBS (4) 

1*4 

* 

000010 

Number of measure- 
ments . 

RMS CMP 

RMSCMP 

STAINF 

SUMMRY 

ROME AN (4) 

R*4 

000020 

Residual means. ‘ 

RMS CMP 

RMSCMP 

SUMMRY 

RMSO(4) 

R*4 

000030 

RMS*s of residuals. 

RMS CMP 

RMSCMP 

SUMMRY 

RND(4) 

R*4 

000040 

RND’s of residuals. 

RMS CMP 

RMSCMP 

SUMMRY 

MEASWT ( 4 ) 

1*4 

' 000050 

Number of weighted 
measurements . 

RMS CMP 

RMSCMP 

SUMMRY 

WTME AN ( 4 ) 

R*4 

•000060 

Weighted residual 
measurements . 

RMS CMP 

RMSCMP 

SUMMRY 

RMSWTO(4) 

R*4 

000070 

RMS's of weighted 
residuals . 

RMS CMP 

RMSCMP 

SUMMRY 

WTRND(4) 

R*4 

-000080 

RND's of weighted 
measurements . 

RMSCMP 

RMSCMP 

-SUMMRY 

TYPRMS(4) 

** • . « 

R*4 

000090 

Measurement type 
weighted RMS's. 

RMS CMP 
. STAINF 

NONAME 

RMSCMP 

STAINF 

SUMMRY 

TYPORB 

NOTYPE 

(2,30) 

1*4 

.000108 

$ 

Number of measure- 
ments by type. 

RMSCMP 

STAINF 

RMSCMP 

STAINF 

SUMMRY 

TYPORB 


9.0-26 



/CSTINF/ (Version 1) (Cont.) * 


Variable 

Type 

Hex Location 

Description 

Programs 

Where 

Defined 

Programs 

Where 

Used 

BSUM 

(8,12) 

R*4 

0001F8 

Summing arrays for 
PCE measurement ■ 

- types . 

STAINF 

STAINF 

u* 

RMS ALL 
(300) 

R*4 

000378 

Measurement type 
weighted RMS’s for 
all arc. 

STAINF 

■c, 

STAINF 

NOALL 

(300) 

1*4 

* 

0003FO ' 

Number of measure- 
ments by type for 
all arcs. 

* 

STAINF 

NONAME 

STAINF 

JJOWTOB . 

1*4 

000468 

Total number of 
weighted obser- 
vations . 

SUMMRY 

NONAME 

BMTWRT 

SUMMRY 

TYPORB 

JBASE 

1*4 

00046C 

Number of station 
measurement base 

lines 

GEOSRD 

SIMRD 

CBROWN 

CBROWN 

GEOSRD 

SIMRD 

SUMMRY 


t 

9 '■ ■ 


.- 0 - 27 



. /CSTINF (Version 2) 

. COMMON/CSTINF/JBASE(283) ,KBASE(283) , LBASE 


Variable 

Type 

Hex Locat 

JBASE 

(283) 

1*2 

000000 

KBASE 

(283) 

1*2 

000236 

LBASE 

1*4 

00046C 


icm Description 

First station in a 
measurement base- 
line. 

Second station in 
a measurement 
baseline . 

Number of station 
measurement base-' 
lines . 


Programs 

Programs 

Where 

' Where 

Defined 

Used 

GEOSRD 

MAIN. 

SIMRD 

GEOSRD 

SIMRD 

GEOSRD 

MAIN 

SIMRD 

GEOSRD 

SIMRD 

GEOSRD 

MAIN 

SIMRD 

GEOSRD 

MAIN 

SIMRD 



/CUVECT/ 

■ ■* 

COMMON/CUVECT/UHAT (3 ,2) ,XYZ(3,2) ,RXYZ(3,2) , 
: RENV(3,2) ,R(2) ,RSQ(2) ,XYZSQ(2) 


Programs Programs 

Where Where 


Variable 

Type 

Hex Location 

Des cription 

Defined 

Used 

UHAT (3,2) 

R*8 

000000 

Earth fixed unit 
vector from station 
to satellite. 

GRHRAN 

GRHRAN 

OBSDOT 

PREDCT 

XYZ (3 > 2) 

R* 8 

000030 

Earth centered 
fixed satellite 
vector . 

GRHRAN 

GRHRAN 

OBSDOT 

PREDCT 

PROCES 

RXYZ (3 , 2) 

4 

R* 8 

000060 

Earth fixed vec- 
tor from station 
to satellite . 

GRHRAN 

GRHRAN 

PREDCT 

PROCES 

-RENV(3j 2) 

R*8 

000090 

Station- satellite 
unit local vector 
(direction 
cosines) . 

GRHRAN 

GRHRAN 

OBSDOT 

PREDCT 

PROCES 

TWOSTA 

UPDOWN 

R(2) 

R*8 

ooooco 

Slant range from 
station to 
satellite . 

GRHRAN 

GRHRAN 
OBSDOT 
PREDCT 
PROCES 
TWOSTA 
. UPDOWN 

RSQ(2) 

R*8 

0000D0 

--H*R 

GRHRAN 

GRHRAN 

TREDCT 

XYZSQ(2) 

R*8 

OOOOEO 

RXYZ (1,1 SAT) **2 
+ RXYZ (2,1 SAT ) * * 2 

GRHRAN 

GRHRAN 

PREDCT 


where I SAT = 
satellite index. 


9 . 0-29 



. ' /DODDAT/ 

• COMMON/DODDAT/TIME1 ,STNAM1 ,OBDl ,DG(2) ,OBSCOR, 

SATNO, IOBNOl , IWT(6) ,TCOR,IG2(2) ,IT, IG1 ,TTAG ,PBIT1 ,PBIT2 ,IG 


Variable 

Type 

Hex Location 

Description 

Programs 

Where 

Defined 

Program 

Where 

Used 

TIME1 

R*8 

000000 

Time of DODS 
observation 

DATBSE 

DATBSE 

DODSRD 

v STNAM1 

R*8 

000008 

Station ID 

DATBSE 

DATBSE 
.. DODSRD 

OBD1 

R*8 

000010 

DODS observation 

DATBSE 

DATBSE 

DODSRD 

DG(2) 

r- r ' 1 • * 

•R*8 

000018 

DG(l)-not used 
DG ( 2) - DODS Range 
ambiguity infor- 
mation (bits 
56-59) 

DATBSE 

DATBSE 

DODSRD 

OBSCOR 

R*8 

.000028 

DODS observation 
correction 

DATBSE 

DATBSE 

DODSRD 

SATNO 

1*4 

000030 

Satellite number 

DATBSE 

DATBSE 

DODSRD 

- -IOBNOl 

1*4 

000034 

DODS observation 
number 

DATBSE 

DATBSE 

IWT(6) 

R*4 

000038 

Not Used 

DATBSE 


"TCOR 

R*4 

•000050 

Time correction 

DATBSE 

DATBSE 

DODSRD 

IG2 

(2) 

1*2 

000054 

Not Used 

DATBSE 

- 

IT 

• • 

1*2 

000058 

DODS observation 
type number 

DATBSE 

DATBSE 
; DODSRD 

' — 1<51 

1*2 

00005A 

‘Not Used ~ ‘ 

DATBSE 

- - 

TTAG 

1*2 

p 

* 00005C 

Time type and sta- 
tion source indi- 
cator 

DATBSE 

DATBSE 
. DODSRD 

PBIT1 

1*2 

00005E ‘ 

Preprocessing indi- 
cators for cor- 
rections added prior 
to DODS (bits 10-15) 

DATBSE 

DATBSE 

DODSRD 


"ST.0-30 



. /DODDAT/ (CONT.) 


Variable Type Hex Location Descriptio n 


PBIT2 


1*2 


000060 


Preprocessing in- 
dicators for cor- 
rections added by 
DODS (bits 10-15) 


Programs 

Where 

Defined 

DATBSE 


Program' 

Where 

Used 

DATBSE 

DODSRD 

4k* 


IG 


1*2 000062 


Not Used 


DATBSE 




. ■ • : • * : 


/DRGBLK/ 

COMMON/DRGBLK/HT, SPSISQ, C(4) ,C3, 
Cl, VEL, XDOTR, YDOTR, RHO 


* 

Variable 

Type 

... 

Hex Location 

Description 

Programs 

Where 

Defined 

Programs 

Where 

Used 

HT« 

R*8 

* 

000000 

DRAG-satellite 
spheroid height 
in meters 
DENSTY- IN - 
same as in DRAG 
"OUT- same 
as in drag 
multiplied by 

10- 5 

DRAG 

DHNSTY 

DENSTY 
DRAG 
VEVAL • 

i 

SPSISQ 

R* 8 

000008 

2 * 
sin (geocentric 

latitude ) 

DRAG 

DRAG 

VEVAL 

C(4) 

R*8 

000010 

C(l) -partial of the 
density with respect 
to the spheroid 
height divided by 
. the density C(I) , 
1-2,4 scratch 

DENSTY 

DENSTY 
VEVAL ‘ > 

C3 

R*8 

000030 

The density times 
the relative air 
speed 

DRAG 

DENSTY 

DRAG 

VEVAL 

Cl 

R*8 

000038 

C 3 (l/2)C D (A/m) 

DRAG 

DENSTY 

DRAG 

VEVAL 

- --VEL 

R*8 

"•00004 0 

Relative air speed 
of the satellite 

DRAG 

DENSTY 
. DRAG 
VEVAL 

_ . XDOTR 

R* 8 . 

000048 

x-component of the 
relative air speed 

DRAG 

DENSTY 

DRAG 

VEVAL 

YDOTR 

R*8 

000050 

.* 

» 

y-component of the 
relative air speed 

DRAG 

DENSTY 

DRAG 

VEVAL 

RHO 

R*8 

: 000058 

Atmospheric density 
in kg/m'* 

DRAG 
^ . 

DRAG 

VEVAL 


: - - 


— 9v0-32 





*' 

/FERMSG/ 

COMMON/ FE RMS G/ 1 ME S ( 2 6) 


Variable Type Hex Location Description 


Programs Programs 
Where Where 

Defined Used 


IMES 1*4 000000 

(26) 



See IBM SYSTEM/360 Defined in ERROR 

GENERAL I/O. PACKAGE, system a* 

Alan Thompson, IBM routine 

July 14, 1970 DREAD or 

pages 13 and 14. DWRITE 

when they 
. encounter 
I/O 
error. 




" y ' /FLXBLK/ (Version 1) 
COMMON/FLXBLK/AVFLX.(675J ,DFLX(675) ,KP(675) 


Variable 

Type 

Hex Location 

Description 

Programs 

Where 

Defined 

Programs 

Where 

Used 

AVFLX 

(675) 

R*8 

000000 

Three solar rotation 
midpoint average 
10.7cm flux values. 

JANTHG 

NONAME 

ADFLUX 

BtiTWRT 

# 



Average provided 


DENSTY 


* 


daily beginning 
with 12 hours GMT 


INDENT 

JANTHG 




two days prior to 


NEWARC 




day of data epoch. 



DFLX 

(675) 

‘ R*8 

001518 

Daily 10.7cm flux 
values beginning 
12 hours GMT two 
days prior to day 
of data epoch. 

JANTHG 

NONAME 

ADFLUX 

BMTWRT 

DENSTY 

INDENT *“ 

JANTHG 

NEWARC 

KP 

(675) 

R*8 

002A30 

Daily mean of 
geomagnetic indices 
K beginning 12 
hours GMT two- days 
prior to day of 
data epoch 

JANTHG 

NONAME 

ADFLUX ^ 

BMTWRT 

DENSTY 

INDENT 

JANTHG 

NEWARC • 




Variable 

INDXCS 

(960,3) 


PLHSIG 

PLHSW 


./FLXBLK/ (Version 2) 

COMMON/ FLXBLK/ 1 NDXCS , ( 9 6 0 , 3) PLHS I G , PLHSW 


Programs Programs 

^ Where Where 

Typ e Hex Location Description Defined 


1*2 000000 Indexes for common INOUPT COMPAR 

adjusted geopoten- INOUPT 

tial coefficients. STpRE 


INDXCS (I ,1)= degree 
of I*h adjusted 
coefficient . 

INDXCS (I , 2) = Order 
of I^h adjusted 
coefficient . 

INDXCS (I, 3) 

«= 1 for C’s 
= 2 for s’ s 


r*4 001680 Sigmas and correla- INOUPT COMPAR 

tions on adjusted INOUPT 

'station positions. STORE . 

L*l- 003A38 Switches telling INOUPT COMPAR 

. whether adjusted INOUPT 

station sigmas and STORE • 

correlations refer 
.... to Cartesian or 

' “geodetic coordinates 



• • 


/FLXBLK/ (VERSION 3) . 

. . • . COMMON /FLXBLK/BSTRT (90 0) ,BSEND(900) ,BTYPE(900) 


Variable 

Type 

Hex Location. 

Description 

Program 

Where 

Defined 

Program 

Where 

Used 

BSTRT 

(900) 

R*8 

000000/ 

Start time for bias 
adjustment coverage 

INOUPT 

BIAS 

ARCPAR 

BIAS 

INOUPT 

STORE 

BSEND 

(900) 

R*8 

i 

001C20 

Stop time for bias 
adjustment coverage 

A 

INOUPT 

BIAS 

ARCPAR 

BIAS 

INOUPT 

STORE 

BTYPE 

(900) 

' 1*2 

003840 

Types for bias 
adjustment 

INOUPT 

BIAS 

ARCPAR 

BIAS 

INOUPT 

STORE 


_ 9 . 0-.36 



/FMODEL/ ' • 

COMMON/ FMODEL/ INDEX1 , INDEX2 , INDEX3 , INDEX4 , CS (3 0 , 33) , 
- MODEL (8) 


Variable Type Hex Location Description 


Programs Programs 
Where Where 

Defined Usee 


INDEX1 1*4 000000 Maximum degree of BLOCK DATA COEFL 





geopotential plus 

1. 

INOUPT 

DATARD 

F 

GEOIDH 

INOUPT 

NEWAKC 

STORE 

INDEX2 

*1*4 

000004 

Maximum degree apd 
order of Legendre 
polynomials to be 
computed. 

F 

AVGPOT 

DATARD 

EGRAV 

F 

GEOIDH 
STORE . 

INDEX3 

1*4 

000008 

Maximum order of 
geopotential plus 

1. 

• » • 

BLOCK DATA 
INOUPT 

COEFL 

DATARD 

EGRAV 

INOUPT 

NEWARC 

"STORE 

INDEX4 

1*4 

00000C 

-Maximum degree and 
order of geopoten- 
---tial for variational 
equations. 

BLOCK DATA 
INOUPT 

DATARD 

F 

- INOUPT 
STORE 
VEVAL 

(30,33) 

R*8 

000010 

Geopotential 

coefficients. 

BLOCK DATA 

INOUPT 

NONAME 

’ NONAME 
ARCPAR 
AVGPOT 
COEFL 


-■ COMADJ 

■-■■v:-; -Vy-' ” .-.vV compar 

. ■ * ■ : • ‘ V,;- . ■ . EGRAV 

" ' , • : * v • GEOIDH 

■ ' •• .■ '• • inoupt 

■ '* ■ .. • ORB1 

VEVAL 

MODEL R*8 OOIFOO Name of geopotential, BLOCK DATA COEFL 

(3) 



/GEODYN/ 

COMMON/ GEODYN/DATE 


Program 

Where 

Variable Type Hex Location Description Defined 

DATE R*8 000000 GEODYN system date BLOCK DATA 

and source tape 
- ‘ number . 


Programs 

Where 

Used 

TYPORB 



/GNDTRK/ 

COMMON / GNDT RK / S AT L AT ( 2 ) ,SATLON(2) ,SATH(2) ,ELEV(2) 


Program 

Where 


Variable 

Type 

Hex Location 

Description 

Defined 

SATLAT 

(2) 

R*8 

000000 

Satellite latitude. 

PREDCT 

SATLON 

(2) 

R*8 

000010 

Satellite longi- 
tude. 

PREDCT 

SATH 

(2) 

R*8 

000020 

> 

Satellite height. 

PREDCT 

ELEV 

(2) 

'R*8 

000030 

Satellite elevation 
angle. 

PREDCT 

SATSW 

L*4 

000040 

Switch requesting 
—computation of 
SATLAT, SATLON, 
SATH. 

NONAME 


9.0-39 


.SATSW 


Programs 

Where 

Used 

NONAME 

PREJDCT 

-4 

l.- 

NONAME 

PREDCT 

NONAME 

PREDCT 

NONAME 

PREDCT 

PROCES 

NONAME 



/INITBK/ 

. * 

COMMON/ INITBK, IEPYMD ,IEPHM , EPSEC, I YREF , INNMAX, INNMIN , 
CONVRG , ORBE L ( 6 , 2 ) , BDITN , INSUP R, I DSAT ( 2) ,ORBTSW , 
XYZFSW,SYZLSW } PLTLSW ,GRDFSW , KEPLER, SUBS AT , PARTGP , 
PBMAT , BMATNO , S I MDAT , P CES I M , MI S LO G C 9 ) 






Programs 

Programs 





Where 

Where 

Variable 

Type 

Hex Location 

Description 

Defined 

Used 

i;-. 

IEPYMD 

1*4 

000000 

Epoch YYMMDD 

MAIN 

DODELM 

MAIN 

NONAME 


' .••• 



ORBIT 

DATARD 

DODELM 






INOUPT 

ORBIT 


♦ 




STORE 



/ 

< 


TYPORB 

IEPHM 

1*4 

000004 

Epoch HHMM • 

MAIN 

DODELM 

MAIN 

NONAME 





ORBIT 

DATARD 

DODELM 





• 

INOUPT 

ORBIT 

STORE 

TYPORB 

'EPSEC 

' R*8 

•000008 

Epoch seconds 

MAIN 

DODELM 

MAIN 

NONAME 





: ORBIT 

DATARD 



.. ’ : '■ 



DODELM 






INOUPT 


m' 




ORBIT 






•STORE 




• • . • . • 

* 

TYPORB 

4* - 

. MAIN 

/ TVircp 

1*4 

000010 

Reference date 

MAIN 




; NONAME 




■ . % 


DATARD 

•'* ; . > 





, INOUPT 





' * :* . . *• •'* . ‘ 

NEWARC 




• * ■ ■ ■’ *' : " ' . . ' • 

' ■ : * . ' . . ■ ■ ‘ 

STORE 

♦ • * 

‘ INNMAX 

1*4 

-• 000014 

Maximum number . 

INOUPT 

MAIN 



» 

of inner iterations 


NONAME 


DATARD 
INOUPT 
NEW ARC 
STORE 



, ... V 

• . 


/INITBK/ (Cont . ) 

♦ 


Variable 

Type 

♦ . * - ' 
Hex Location Description 

Programs 

Where 

Defined 

Programs 

Where 

Used 

INNMIN 

1*4 

000018 

Minimum number of 
inner iterations 

INOUPT 

MAIN 
NONAME 
DATARD 
• INOUPT 
NEWARC 
STORE 

CONVRG 

1 

R*4 

* 

00001C 

v 

Inner iteration 

convergence 

criterion 

. . » 

INOUPT 

MAIN 

NONAME' 

DATARD 

INOUPT 

NEWARC 

STORE 

ORBEL 

(6,2) 

R*8 

000020 

Nominal epoch 
elements 

MAIN 

MAIN 

N0NAME 

DATARD 

INOUPT 

ORBIT 

STORE 

EDITN 

R*4 

000080 

Editing multiplier 

' . » * » ; 

’ a ’ ♦ 

INOUPT 

NONAME 
. DATARD 
INOUPT 
• STORE 
SUMMRY 

H INSUPR 

1*4 

-000084 

“Residual printing 
indicator 

MAIN 

INOUPT 

NFK.ADP 

MAIN 

NONAME 

DATARD 

..INOUPT 

NEWARC 

STORE 

■* 





IDSAT 

(2) 

1*4 

000088 

Satellite IDs for 
ORB1 tapes 

INOUPT 

NONAME 

DATARD 

INOUPT 

STORE 






ORBTSW 

L*4 , 

‘ 000090 

Orbit generator ' 
switch 

’ INOUPT 
NEWARC 

MAIN 

NONAME 

DATARD 

INOUPT 

STORE 

TYPORB 


9 .0-41 



Variable 

Type 

\/INITBK/(Cont.) 
Hex Location Description 

Programs 

Where 

Defined 

Programs 

Khere 

Used 

XYZFSW 

L*4 

000094 

Switch for satellite 

INOUPT 

NONAME 


* . 

ephemeris on first 
inner of first 

NEKARC 

DATARD 

INOUPT 




outer 


STORE 

XYZLStt 

L*4 • 

.000098 

Switch for satellite 

IK’OUPT 

NONAME 



ephemeris on last 
inner of last outer 

NEKARC 

DATARD 





INOUPT 

■ ■ . ’■ ; •- ■ 



. 


STORE 

PLTLSW 

L*4 

00009C 

Binary residual 

INOUPT 

NONAME 

• 


tape switch 

» 

NEKARC 

DATARD 

INOUPT 






STORE 

GRDFSW 

L*4 

0000A0 

Groundtrack tape 

INOUPT 

NONAME 




.switch 

.-NEKARC 

DATARD s 
INOUPT ^ 
STORE 

KEPLER 

L*4 

0000A4 

Kepler ephemeris 
switch 

INOUPT 

NEKARC 

NONAME 
DATARD 
INOUPT - 




% 


STORE 

SUBSAT 

L*4 

0000A8 

Satellite ground- 
'"track switch 

NO NAME 
NEKARC - 

NONAME 

DATARD 

PREDCT 






STORE 

• PARTGP 

L*4 

0000AC 

Partial derivative 

INOUPT 

NONAME 




print switch 

NEKARC 

DATARD 





INOUPT 



• 

. • •: . 


STORE 

’ PBMAT 

L*4 

OOOOBO 

B-matrix print 

INOUPT 

BMTKRT 




switch 

NEKARC 

DATARD 


■. *■ 

■_ * • ■ • , . 



INOUPT 



.» 



STORE 

BMATNO 

1*4 ' 

• 0000B4 

B-raatrix number' 

INOUPT 

NONAME 

■ 

- 



NEKARC 

BMTKRT 




- - r 

-&.0-42 


DATARD 

ESTIM 

INOUPT 

STORE 



/INITBK/.(Cont.) 


Variable Type Hex Location Description 


Programs 

Where 

Defined 


SIMDAT 

L*4 

. 0000B8 

Simulated data 

INOUPT 




switch 

NEWARC 

PCESIM 

L*4 

0000BC 

Simulated element 
data type switch 

INOUPT 

MI SLOG 
(9) 

1*4 

0000C0 

Initialization 
switches for 
several subrou- 

DATARD 

GEOIDH 


tines 

1 - DENSTY 

2 - DPFCT 

3 - EGRAV 

4 - EPHEM 

5 - NUTATE 

6 - PRECES 

7 - REFCOR 

8 - TDIF 

9 - TIDAL 


9.0-43 


Programs 

Where 

Used 

NONAME 

DATARD 

INOyPT 

STORE 

NONAME 

DATARD 

INOUPT 

STORE 

NONAME 

DATARD 

DENSTY 

DPFCT 

EGRAV 

EPHEM 

GEOIDH 

NUTATE 

PRECES 

REFCOR 

TDIF 

TIDAL 


/INTBLK/ 

.COMMON/ INTBLK/ THDOT 1 , THDOT 2 , THDT 2 S , GM , AE , AESQ , FLAT , 

FSQ32 , FFSQ32 , GM3 (6) ,B(2) ,BDOT[2) ,B0(2) ,APGM(2) ,APLM(2) , 
RPRESS , INITAL ,NORRAT ,THETG0 , MBODY ( 6 ) ,STEPSZ(2 , 2) , 

HLVERB (2) , DBLERB (2) ,CTOL(2) ,RTOL(2) ,STPLOW(2) ,STEPUP(2) , 
ORDER ( 2 , 2) , ASAT (2) ,MSAT(2) ,VARSTP(2) ,HLVDSW(2) ,NEQN(2) , 

. ADDR(2) ,ADDRD(23 ,SRADC2) ,L0VE(3J ,TOREFT,NBODY 






Programs 

Programs 




■ 

Where 

Where 

Variable 

T yp e 

Hex Location 

Description 

Defined 

Used 

THD0T1 

R*8 

000000 

Mean advance in 

BLOCK DATA 

F 




right ascension of 

NEWARC 

GRHRAN 



% 

Greenwich in 


NEWARC . 


- « 


Tadians per mean 
solar day. 

* 


0RB1 

THDOT2 

R*8 

000008 

Rotation rate of 

NEWARC 

F 




earth in radians 


GRHRAN 




per mean solar 


NEWARC 




_iay. 



THDT 2 S 

R*8 • 

000010 

Rotation rate of 

NEWARC 

AVGPOT 




earth in radians 


DRAG 




per second. 


EPHEM 






GEOIDH 

NEWARC 

OBSDOT 


• 




PREDCT 






VEVAL 

GM 

R*8 

' 000018 

Universal gravita- 

BLOCK DATA 

AVGPOT 



■ — 

tional constant 

INOUPT 

EGRAV 




times mass of 


ELEM 




--earth. 

. *— 

GEOIDH 

- 




1 

'INOUPT 






OBSDOT 


ORB1 

ORBIT 

POSVEL 

START 

TYPORB 

VEVAL 


9.0-44 



Variable 
AE ' 


- AESQ 
--FLAT 


FSQ32 

FFSQ32 


/INTBLK/ (Cont , ) 


Type Hex Location 
R*8 000020 


R* 8 000028 


R*8 000030 


R*8 000038 


R*8 , 000040 


Description 

Semimajor axis of 
earth ellipsoid. 


/ ' • 


AE ** AE 

Flattening of ■ 
earth ellipsoid. 


3/2 AE * FLAT* *2 
- AE * FLAT + FSQ32 


Programs Programs 
Where Where 

Defined Used 

BLOCK DATA APPER 
INOUPT AREAS 

AVGPOT 
DELTAZ 

• / • ’ DRAG 

• EGRAV 

- GEOIDH 
INDENT 
INOUPT 
ORB1 , 
ORBIT 
PLHOUT 
PREDCT 
SQUAXT 
STAINP 
TIDAL 
TYPORB 

INOUPT AREAS 

F 

INOUPT 
■ ORBIT 

BLOCK DATA AREAS 

INOUPT AVGPOT 

■ i \ DELTAZ 

- INDENT 
INOUPT 
PLHOUT 

. PREDCT 

. squaxt 

'STAINP 

INOUPT APPER 

. DRAG 
INOUPT 

. - - , PREDCT 

VEVAL 

INOUPT APPER 

DRAG 
INOUPT 
PREDCT 
VEVAL 


9 . 0 -:4 5 



/INTBLK/ (Cont ♦) 


Program 

Where 


Variable 

T/pe 

Hex Location 

Description 

Defined 

GM3 

(6) 

R*8 

000048 

Universal gravita- 
tional constant, 
times mass of per- 
turbing celestial 
bodies ordered as 
follows : 

ORBIT 


4 

* 

1 - MOON 

2 - SUN 

3 - VENUS 

4 - MARS 

5 - JUPITER 

6 - SATURN 


B(2) 

R*8. 

000078 

1/2 C D A/m 

ORBIT 

BOOT 

X2) 

R*8 

000088 

1/2 A) A/m 

ORBIT 

BO (2) 

R*8 

' 000098 

1/2 A/m 

ORBIT 

- -APGM 
(2) 

R*8 

0000B8 

A/m 

(P^ = solar radia- 

ORBIT 


* ' 


tion pressure 
constant) 

V' 

APLM 

(2) 

R*8 

0000A8 

p 

- C R P R A /m 

. ; ORBIT 


Programs 

Where 

Used 

ORBIT 

SUNGRV 

TIDAL 

VEVAL 


COWELL 

DRAG 

F 

ORBIT 

TIDAL 

VEVAL 

DRAG 

F 

ORBIT 

TIDAL 

NONAME 

DRAG 
. F 

ORBIT 

'TIDAL 

F 

ORBIT 

TIDAL 


F 

ORBIT 

TIDAL 



Variable 

RPRESS 

- INITAL 


NORRAT 


THETGO 


MBODY 

( 6 ) 


/INTBLK/CCont.) 





Programs 

Programs 




Where 

Where 

Iff! 

Hex Location 

Description 

Defined 

Used 

R*8 

OOOOC8 

Solar radiation 

BLOCK DATA 

F 

pressure constant. 


INOUPT 

ORBIJ 


• . • 

•’ ' ' * ■' 


TIDAL 

L*4 

00G0D0 

* . 

Integration 

initialization 

switch. 

NONAME 

NONAME 

COWELL 

F 

ORBIT . 





TIDAL 

t 

L*4 

0000D4 

No range rate 

GEOSRD 

NONAME 



switch. 

DODSRD 

DATARD 

DODSRD 

• 



* 

p 

GEOSRD 

PCERD 

SIMRD 

TIDAL 

R*2 

0000D8 

Right ascension of 
Greenwich on 

JANTHG 

NONAME 

ADFLUX 



Jan 0 . 0 'of 


DATARD 



reference year. 


F 

GRHRAN 

ORB1 

. 




STORE 





TIDAL 

R*8 

0000E0 

Ratios of masses of 
perturbing bodies 
to mass of earth 
ordered as follows: 

BLOCK DATA 
INOUPT 

DATARD 

'INOUPT 

NEWARC 

ORB1 


• ORBIT 

1 - MOON STORE 

2 - SUN- ' TIDAL 

• 3 - VENUS 

4 - MARS 

• 5 - JUPITER 

v 6 - SATURN 


9.0-47 



/INTBLK/ (Cont . ) 






Programs 

Programs 





Where 

Where 

Variable 

T yp e 

Hex Location 

Description 

Defined 

Used 

STEPSZ 

R*8 

000110 

Integration step, 

size . 

BLOCK DATA 

NONAME 

(2,2) 



INOUPT 

DATARD 





NEWARC 

INOUPT 





ORBIT 

NEWARC 

ORBIT 

STORE 

TIDAL 

HLVERB 

R* 8 

000130 

Step size reduc- 
tion criterion. 

BLOCK DATA 

COWELL • 

(2) 



INOUPT 

DATARD 

k 


* 

NEWARC 

INOUPT 

NEWARC 







STORE 

TIDAL 

DBLERB 

R*8 

000140 

Step size increase 

BLOCK DATA 

COWELL 

(2) 



criterion. 

INOUPT 

DATARD 



* 

NEWARC 

INOUPT 

NEWARC 





<• • 


STORE 

TIDAL 

CTOL 

R*8 

000150 

Critical tolerance 

BLOCK DATA 

COWELL 

(2) 



for determining 

INOUPT 

DATARD . 




number of inte- 

NEWARC 

INOUPT 




grator correction 


NEWARC 



• • 

iterations . 


STORE 






TIDAL 

RTOL 

R*8 

000160 

Tolerance used to 

BLOCK DATA 

COWELL 

* *•. .■* 



determine new 

INOUPT 

DATARD 




step size in 

NEWARC 

'INOUPT 




vary-step integra- 


NEWARC 




tor. 


STORE 

* • 





TIDAL 

STPLOW 

R*8 

000170 

Minimum integrator 

BLOCK DATA 

COWELL 

(2) 



step size. 

INOUPT 

DATARD 



. * 


NEWARC 

INOUPT 



r 

+. 



NEWARC 


STORE 

TIDAL 



/INTBLK/(Cont.) 


Variable 

Type 

Hex Location 

Description 

Programs 

Where 

Defined 

Programs 

Where 

Used 

STEPUP 

(2) 

R*8 

000180 

Maximum integrator 
step size. 

BLOCK DATA 

INOUPT 

NEWARC 

COWELL 
DATARD 
INOUPT 
NEWARC 
STORE 
. TIDAL 

ORDER 

(2,2) 

1*4 

4 

000190 

V 

Integration orders. 

v • 

BLOCK DATA 

INOUPT 

NEWARC 

MAIN 

DATARD 

INOUPT 

NEWARC 

ORBIT 

STORE 

TIDAL 

ASAT 

(2) 

R*8 

0001A0 

* 

Satellite areas. 

• 

• 

% 

INOUPT 

NEWARC 

NONAME 

DATARD 

INOUPT 

NEWARC 

ORB1 

ORBIT 

STORE 

TIDAL 

TYPORB 

MS AT 
(2) 

R*8 

0001B0 

Satellite masses. 

INOUPT 

NEWARC 

NONAME 

DATARD 

INOUPT 

NEWARC 

ORB1 

'ORBIT 

STORE 

TIDAL 

TYPORB 

VARS TP 
(2) 

L*4 

OOOICO 

Vary-step. switch. 

INOUPT 

NEWARC 

MAIN 

DATARD 

ERROR 


>■ INOUPT 

' , .. • '* • NEWARC 

* :■ ■ • ■ : . ORBIT . 

STORE 

TIDAL 



t 


/INTBLK/ (Conti) 


■; •_ - 




Programs 

Programs 





Where 

Where 

Variable 

Type 

Hex Location 

Description 

Defined 

Used 

HLVDSW 

L*4 

0001CS 

Halving -doubling. 

INOUPT 

COWELL 

(2) ‘ 



switch. 

NEWARC 

DATARD 


— . ‘ ; 

. * 


INOUPT 

NEWARC 






STORE 



"j ; 



TIDAL 

NEQN 

(2) 

1*4 

* 

0001D0 

* 

Number of integra- 
tor equations. 

NONAME 

MAIN 

NONAME’ 

DATARD 

INOUPT 


NEWARC 
• . ORBIT 

PREDCT 
RESPAR 

• ' STORE 

SURDEN 

• TIDAL 

VEVAL 

ADDR 1*4 00Q1D8 Drag’ parameter INOUPT NONAME 

(2) numbers. • ' ARCPAR 

. • , * BMTV.’RT 

DATARD 

. . ‘ ' ■; DRAG 

■ vA ' . .INOUPT 

. ••• ' . • . '■ . . NEWARC 

orbit 

■ . \ PREDCT 

: . STORE 

..... -SURDEN 

. ' . . ' ■ ;• • TIDAL 

V TYPORB 

••• ■ • - VEVAL 




/INTBLK/ (Cont . ) 


i 



Programs 

Programs 



Where 

Where 

Variable Type 

Hex Location Description 

Defined 

Used 

ADDRD 1*4 

0001E0 Drag rate para- 

INOUPT 

NONAME 

(2)* 

. '• meter numbers. 


ARCPAR 


BMTWRT 

DATARD 

DRAG 


INOUPT 

NEWARC 

ORBIT 

PRHDCT 

STORE 

SURDEN 

TIDAL 

TYPORB 

VEVAL 


SRAD 

1*4 

0001E8 

Solar radiation 

INOUPT 

NONAME 

(2) 


• 

parameter numbers. 

* . * • . . 


ARCPAR 

BMTWRT 

DATARD 

F 

INOUPT 

NEWARC 

ORBIT 

PREDCT 





if 

■■■(■ % •- '■ 

STORE 

SURDEN 

LOVE 

R*8 

0001F0 

Tidal parameter 

BLOCK DATA 

TIDAL 

TYPORB 

VEVAL 

■MAIN 

(3) 



values. 

INOUPT 

ARCPAR 



. . - •- 

- “ ' / ' : • • _ _ \ 


DATARD 






INOUPT 






STORE 




" . - • . 7. . •' .■ ■. ' \ V - ; 7 • 

’ ; • ' * ‘ 

SURDEN 






TIDAL 



t 

9 ‘ 

4 ‘ • \ “ . 

• 


TYPORB 

VEVAL 




9*0-51 

i 




/INTBLK/ (Cont.) 


Variable 

lyp e 

Hex Location 

Description 

Programs 

Where 

Defined 

Programs 

Where 

Used 

TOREFT 

L*4 

000208 

Switch for output 

INOUPT 

MAIN 

. • 



in true ’equator ' 
and equinox of 
reference time. 

NEWARC 

NONAME 

ARCPAR 

DATARD 

INOUPT 

NEWARC 




» * * * ‘ 


ORBIT 

NBODY 

* 

1*4 

.*•, V . 

00020C 

« 

Number of perturb- 

BLOCK DATA 

STORE . 
SURDEN 
TYPORB 
VEVAL 

MAIN 

> 



ing celestial 
bodies. 

INOUPT 

NEWARC 

ARCPAR 

DATARD 

EPHEM 

INOUPT 

NEWARC 

STORE 

SUNGRV 

SURDEN 

TYPORB 

VEVAL 



/INTERP/ 


Variable 

COMB 

( 21 , 21 ) 


' COMMON/INTERP/COMB (21 , 21) ,M12(4) 


. r Programs 

" : ■ Where 

Type Hex Location Description Defined 

R*$ 000000 Binomial coeffi- COM 

• cient array. 

1*4 000DC8 Displacement array COWELL 

used by integrator ORBIT 

and interpolator. 


Programs 

Where 

Used 

COEF 

COM 


Ml 2 
(4) 


ORBIT 



. /MONTHS/ 

: COMMON /MONTHS /MONTH (26) 


Program Programs 

. . Where Where 

Variable Type Hex Location Description . Defined Used 

MONTH 1*4 000000 Number of elapsed BLOCK DATA ADDYMD 

(26) days at the. _ DIJJF 

beginning of each 
month for leap 

- - years and for non- 

leap years . 





/MOONGR/ 


• . COMMON /MOONGR/DPXUV (6) ,RHOM(3,6) ,RHOSQ(6) ,RH03(6) 


• 


♦ 

• 


Program 

Where 

Programs 

Where 

Variable 

Type 

Hex Location 

Description 

Defined 

Used 

DPXUV 

( 6 ) 

R*8 

000000 

Dot products of 
satellite position 
vector with unit 
vectors to perturbing 
celestial bodies. 

SUNGRV 

F 

SUNGRV • 
TIDAL 

RHOM 

( 3 , 6 ) 

R*8 

* 

000030 • 

Satellite position 
vectors in coordi- 
nates centered at 
perturbing bodies’. 

SUNGRV 

SUNGRV 

VEYAL 

RHOSQ 

( 6 ) 

R*8 

ooooco 

Square of the 
difference of the 
distance of the 
satellite from the 
earth and the dis- 
tance of the 
satellite from the 
perturbing body. 

SUNGRV 

SUNGRV 

VEVAL 

r:;o3 

R*8 

OOOOFO 

RHOSQ* *1.5 

SUNGRV 

SUNGRV 

(6) 

* 



VEVAL 


• 


■* 




9 . 0-55 



/PREBLK/ 

COMMON/PRBBLK/DAYSTA ,0BS1 ,0BS2 ,SIG1 ,5IG2 ,SRFNDX , 

ISTA.MTYPE ,NMEAS ,ISAT ,PRET\P , CHANEL ,VHFCH , 

* nnrnnrt n tT 


Variable Type Hex Location. 
DAYSTA R*8 000000 



Descript ion 

Programs 

Where 

Defined 

Programs 
Where 
Used 

Time of observation 

GEOSRD 

. * 

K'ONAME 


DODSRD 

BIAS 

pair 

PCERD 

DATARD 


SIMRD 

DODSRD 


NONAME 

GEOSRD 


NEW ARC 

PCERD 

RANDOM 

4 • . ■ • 


SIMRD 


STORE 


OBS1 R*8 000008 


First observation GEOSRD 

DODSRD 

PCERD 

S1MRD 

NONAME 

PROCES 

■ " ' ■ • . TWOSTA 


NONAME 

DODSRD 

GEOSRD 

PCERD 

PREDCT 

PROCES 

RANDOM 

SIMRD 

TWOSTA 


OBS2 R*8 000010 









Second observation PROCES 

TWOSTA 


NONAME 
DODSRD 
GEOSRD 
PCERD 
PREDCT 
PROCES 
' RANDOM 
SIMRD 
TWOSTA 


SIG1 ' R*8, 000018 


Sigma for first GEOSRD 

observation DODSRD 

PCERD 

* ■ SIMRD 

V • NONAME 


NONAME 

DODSRD 

GEOSRD 

PCERD 

PREDCT 

RANDOM 

SIMRD 


9 JQ-S6 



/PREBLK/ (Cont . ) 






Programs 

Programs 

Variable 

Type 

Hex Location 

Description 

Where 

Defined 

Where 

Used 

SIG2 

R*8 

000020 

Sigma for second 

PROCES 

NONAME 




observation 

TWOSTA 

DODSRD 



• — ’• ' ■ ' 

" ■. . • 


GEOSRD 

PCERD 

PREDCT 






RANDOM 

SIMRD 

TWOSTA 

SRFNDX 

R*8 

000028 

Tropospheric re- 

PROCES 

NONAME 


* 

. 

fraction index 

TWOSTA 

DODSRD 




« 


GEOSRD 






PCERD 






PREDCT 

PROCES 

RANDOM 


• - ■ 




SIMRD 

TWOSTA 

ISTA 

1*4 

000030 

Station index 

PROCES 

NONAME 


* 

. 


TWOSTA 

BIAS 

DODSRD 

GEOSRD 

INOUPT 


♦ . - ■ 




PCERD 

RANDOM 






SIMRD 

MTYPE 

1*2 

000034 

Measurement type 

PROCES 

MAIN 





TWOSTA 

NONAME 


' BIAS 
DODSRD 

■ ... v - ■ - GEOSRD 

INOUPT 

• : .. . PCERD 

■ PREDCT 

PROCES 

. , ■■■:-. .. , ' RANDOM 

* ' ■ „ . SIMRD 

' TWOSTA 



/PREBLK/ (Cont . ) 


Programs Programs 

Where Where 


Variable 

Type 

Hex Location 

Description 

Defined 

Used 

NMEAS 

1*2 

000036 

Number of measure- 
ments (1 or 2) 

PROCES 

TWOSTA 

NONAME . 

DODSRD 

GEOSRD 





... 

PCERD 

PREDCT 


* 




RANDOM 






SIMRD 

I SAT 

1*2 

000038 v 

Satellite index 

PROCES 

TWOSTA 

NONAME 

DODSRD 


INOUPT 

OBSDOT 

PCERD 

PREDCT 

PROCES 

RANDOM 

SIMRD 

TWOSTA 


PRETYP 

1*2 

00003A 

Preprocessing 

indicators 

PROCES 

TWOSTA 

DODSRD 

GEOSRD 

PCERD 

PREDCT 


* 



* 

PROCES 

RANDOM 

SIMRD 

TWOSTA 

CHANEL 

1*2 

0 0 0 0 3 C 

Transponder 

channel 

PROCES 
. . TWOSTA 

NONAME 

BIAS 

- . “ 

■ 




. DODSRD 




■ 


GEOSRD 




* . * ‘ ■ •’ • 


PCERD 






PROCES 

;• . . > - 





RANDOM 

SIMRD 





; 

TWOSTA 

■“ VHFCHN 

L*1 

.00003E 

Switch to indi- 

PROCES 

DODSRD 

‘ . • " . ■; ♦ •; 



*• cate VHF trans- ' 
ponder 

TWOSTA 

GEOSRD 

PCERD 






PROCES 






RANDOM 

SIMRD 


- 9 . 0 - 58 — 



/PREBLK/ (Cont.) 






Programs 

Programs 





Where 

Where 

Variable 

Type 

Hex Location 

Description 

Defined 

Used 

PREPRO 

L*1 

00003F 

Preprocessing 

PROCES 

N0NAME 

. s 



switch 

TWOSTA 

DODSRD 






GEOSRD 

PCERD 

PREDCT 

PROCES 

RANDOM 

SIMRD 

TWOSTA 

RECNO 

*1*4 

000040 - 

Measurement , 

record number 

PROCES 

TWOSTA 

NONAME 

DODSRD 

GEOSRD 

INOUPT 

PCERD 

RANDOM 

SIMRD 


-o n-, 5Q ~ 



Variable 

ELEMIN 

( 6 , 2 ) 


,VARCOV 

( 6 , 6 , 2 ) 


TITLE 

(60) 


DRAGSG 

( 2 ) 


DRGDSG 

( 2 ) 


/PRIORI/ 

COMMON/PRIORI /ELEMIN (6 , 2) , VARCOV(6 , 6 , 2) , TITLE (60) , 
DRAGSG (2,3) , DRAGO (2,3) , CD ( 2 , 3) 





- Programs 

Programs 




Where 

Where 

T yp e 

Hex Location 

Description 

Defined 

Used 

R*8 

000000 

A priori epoch 

MAIN 

MAIN 



elements. 

ORBIT 

NONAME 





BMTWRT 





DATARD 

ESTIM 





INOUPT 





ORBIT 

♦ 


« 


STORE 

R*4 

000060 

A priori variance/ 

INOUPT ' 

DATARD 



covariance matrix 

NEWARC 

ESTIM 



of the epoch 


INOUPT 



elements. 


NEWARC 

STORE 

R*8 

000180 

Title of arc. 

MAIN 

MAIN 

NONAME 



: . 


DATARD 



• 


INOUPT 

STORE 

TYPORS 

R*8 

000270 

A. priori drag 

INOUPT 

NONAME 



sigmas . 


ARCPAR 

DATARD 

INOUPT 





NEWARC 

•STORE 

R*8 

000280 

A priori drag 

INOUPT 

NONAME 


rate sigmas. * ARCPAR 

. DATARD 

v- : INOUPT 

NEWARC 

STORE 


9.0-60 



/PRIORI/ (Cont.) 


Variable 

Type 

Hex Location 

Description 

Programs 

Where 

Defined 

Programs 

Where 

Used 

EMISSG 

(2) 

R*8 

000290 

A priori solar 
radiation pressure 
sigmas. 

INQUPT 

NONAME 
ARC I AR 
DAT^RD 
INOUPT 
NEWARC 
STORE 

DRAGO 

(2) 

R*8 

• 

0002A0 

A priori drag 
coefficients , C^. 

4 

. / 

INOUPT 

NEWARC 

NONAME 
DATARD 
INOUPT .. 
NEWARC 
STORE 

DRGDO 

(2) 

• R* 8 

0002BO 

A priori drag 
rate coefficients, 

C D‘ 

INOUPT ‘ 
NEWARC 

NONAME 

DATARD 

INOUPT 

NEWARC 

STORE 

EMISSO 

(2) 

R*8 

0002C0 

A priori solar 
radiation pressure 
coefficients, C R . 

% 

INOUPT 

NEWARC 

NONAME 

DATARD 

INOUPT 

NEWARC 

STORE 

CD 

(2) 

R*8 

0002D0 

Adjusted drag 
coefficients C^. 

NONAME 
INOUPT 
NEWARC ■ 

UPDATE 

NONAME 
ARC PAR 
BMTWRT 
DATARD 
INOUPT 
'NEWARC 


0RB1 

ORBIT 

STORE 

TYPORB 

UPDATE 



/PRIORI/ (Cont . ) 


Programs Programs 

Where Where 

Variable Type Hex Location Description Defined Used 

CBD R*8 0002EO . Adjusted drag rate NONAME NONAME 

(2) . *• coefficients, C n . INOUPT ARCPAR 

u NEWARC • BMTWRT 

UPDATE DATARD 

INOUPT 
NEWARC 
•• ORBl 

ORBIT 
• STORE 

TYPORB 

. UPDATE 


EMISS 

R*8 

0002F0 

« 

Adjusted solar 

NONAME • 

NONAME 

(2) 



radiation pressure 

INOUPT 

ARCPAR 



coef f icients, C R . 

NEWARC 

BMTWRT 




UPDATE 

DATARD 


INOUPT 

NEWARC 

ORBl 

ORBIT 

STORE 

TYPORB 

UPDATE 


9.0-62 



/SIGBLK/ 

• COMMON/SIGBLK/SIGSTD(30) , SGPRNT ( 30) , I ARRAY (4) 


Variable 

Type 

Hex Location 

Description 

Program 

Where 

Defined 

Programs 

Where 

Used 

SIGSTD 

(30) 

R*4 

000000 

Default measure- 
ments sigmas. 

BLOCK DATA 

DODSRD 

GEOSRD 

INOUPT 

PCERD 

SGPRNT 

(30) 

R*4 

* 

000078 

■H 

Measurement type 
sigmas to be 
printed. 

INOUPT 

INOUPT 

DODSRD 

1 ARRAY . 
( 4 > 

1*4 

0000F0 

Input data tape 
numbers . 

INOUPT 

GEOSRD 

INOUPT 

PCERD 

SIMRD 


' /SRFELK/ CVersion 1) . 

COMMON/ SRFBLK/ DUMMY (5400) ,BESINO(67S) ,BETYPE(675) 


Variable 

Type 

Hex Location 

Description 

Programs 

Where 

Defined 

Programs 

Where 

Used 

Single 

Words 

1-5400 

R*4 

000000 

Scratch 



GEO'S RD 

BESTNO 

(675) 

1*2 

005460 

% 

Station number for 
which electronic 
biases will be 
extracted 

INOUPT 

INOUPT 

BETYPE 

(675) 

1*2 

0059A6 

Measurement types 
for electronic 
bias extraction 

INOUPT 

INOUPT 



/SRFBLK/ (Version 2) 

COMMON/SRFBLK/PHI (675) ,XLAM(G75) ,DP(675) ,SD(675) , 

SSD(67S) ,NP(67S] l ,NL (675) ,NSD 


Programs 

Where 


Variable 

Type 

Hex Location 

Description 

Defined 

* 

PHI 

(675) 

R*8 

000000 

Latitudes of centers 
of master surface 
density blocks 

INOUPT 

XLAM 

(675) 

R*8 

001S18 

* 

Longitude of cen- 
ters of master 
surface density 
blocks 

INOUPT 

DP 

(675) 

k 

R*4 

002A30 ' 

Surface density * 
block latitude 
increments 

INOUPT 

DL 

(675) 

R*4 

0034BC 

Surface density 
block longitude 
increments 

INOUPT 

-SD 

(675) 

R*4 

003F48 

Surface density 
values 

INOUPT 

SSD 

(675) 

R*4 . 

0049D4 

Surface density 
a priori sigmas 

INOUPT 

NP 

(675) 

1*2 

005460 

Numbers of latitude 
divisions for sur- 
face density master 
blocks 

INOUPT 

NL 

ffs 70 

1*2 

0059A6 

Numbers of longitude 
divisions for sur- 
face density 
master blocks 

INOUPT 

NSD 

1*4 

005EEC 

Number of surface 

INOUPT 


density master 
blocks 


9.0-6S 


Programs 

Where 

Used 

INOUPT 

PDENl 


INOUPT 

PDEN1 


INOUPT 
PDEN 1 


INOUPT 
PDEN 1 


INOUPT 
PDEN 1 

INOUPT 
PDEN 1 

INOUPT 
PDEN 1 


• INOUPT 
PDEN 1 


INOUPT 
PDEN 1 



Variable 

NAME 

STANOS 

NOSTOR 


/STANUM/ 

COMMON/STANUM/NAME , STANOS , NOSTOR 


Type 

Hex Location 

Description 

Program 

Where 

Defined 

Programs 

Where 

Used 

R*8 

000000 

Station names. 

BLOCK DATA 

DODSRD . 
STAINP 

1*2 

0008C0 

. V. 

Station numbers. 

BLOCK DATA 

DODSRD 

GEOSRD 

SIMRD 

STAINP 

w 

1*4 

000AF0 

Number of stored * 
stations . 

BLOCK DATA 

DODSRD 

GEOSRD 


SIMRD 

STAINP 


/STAPOS/ 

COMMON/STAPOS/LAT(280) .LONC280) ,HT(280) 


Variable 

Type 

Hex Location 

Description 

Program 

Where 

Defined 

Programs 

Where 

Used 

LAT 

(280) 

R*8 

000000 

Station geodetic 
latitude in 
radians . 

BLOCK DATA 

STAINP 

LON 

(280) 

R*8 

0008C0 

Station geodetic 
longitude in 
radians . 

BLOCK DATA 

STAINP 

HT 

(280) 

R*8 

001180 

Station height iit 
radians . 

BLOCK DATA 

STAINP 


— 9v0*67. 



Variable 

INTP 

OUTP 

DATP 

XYZTP 

XEPTAP 

RVTP 


/TPEBLK/ 

COMMON/TPEBLK/INTP , OUTP , DATP , XYZTP , KEPTAP , RVTP , 
PLOTP , IOBS , SCRA, SCRC , FLTP, GRDTP 


Programs Programs 

Where ' Where 

Type Hex Location Description Defined Used 

1*4 000000 Card input unit-5. BLOCK DATA MAIN 

- . \ ADFLUX 

ALIST 

, .. GEOSRD 

INOUPT 

STAINP 


1*4 000004 


Printer output BLOCK DATA NONAME 

unit- 6. . ALIST 

BMTWRT 

COMADJ 

COMPAR 

CORREL 

INOUPT 

PDEN 

PDEN1 

SUMMRY 

TYPORB 

\ . . . . UPDATE 


1*4 000008 Direct access BLOCK DATA not used 

data storage 
disk unit -12. 

1*4 OOOOOC Printer output unit BLOCK DATA NONAME 

for XYZ ephemeris INOUPT DATARD 

6» 8 or 9 . NEWARC 

• • • STORE 

1*4 000010 Printer output BLOCK DATA NONAME 

unit for Kepler INOUPT DATARD 

• ephemeris 6,8, or 9. INOUPT 

■-'■V : NEWARC 

" -y- V >/ ./ , „• ^ :: • K- \ ' Y STORE 

1*4 .*000014 . RV tape unit. BLOCK DATA NONAME 

V - V . • INOUPT DATARD 

' • "INOUPT 

NEWARC 

STORE 


9.0-68 



/TPEBLK/ (Cont . ) 


Variable 

Type 

Hex Location 

Description 

Program 

Where 

Defined 

Programs 

Where 

Used 

PLQTP 

1*4 

000018 

Binary residual 
tape unit. 

BLOCK DATA 

NONAME 

. . * 

C- 

IOBS 

1*4 

00001C 

Data selection 
indicator . 

INOUPT 

DODSRD 

GEOSRD 

INOUPT 

NEWARC 

SCRA 

1*4 

• 

000020 

Scratch disk for 
a priori informa- 
tion-14. * 

BLOCK DATA 

NONAME 

ARCPAR 

DATARD 

SCRC 

1*4 

000024 

Scratch disk for 
normal matrix-16. 

BLOCK DATA 

NONAME 

ARCPAR 

COMPAR 

DATARD 

INOUPT 

STORE 

FLTP 

1*4 

000028. 

Scratch disk for 
flux data-13 . 

BLOCK DATA 

NONAME 
AD FLUX 

GRDTP 

• 1*4 

00002C 

Groundtrack tape 

BLOCK DATA 

NONAME 


unit-18 . 



Variable 

TRUE 


/TRUPOL/ 

COMMON / T RU P 0 L / T RU E 


Type 

R*8 



Hex Location Description 


Program Programs 

Where Where 

Defined Used 


000000 ' 


Coordinates .of TRUEP 

tracking station 
corrected from the 
position of the 
true pole. 


GRHRAN 

TRUEP 



/XYZ/ 

. v COMMON/ XYZ/ELEM (6) , R, RSQ, I SAT , IFORCE (2) 


♦ ' Program Program* 

. . Where Where 

Variable Type Hex Location Description Defined Used 


ELEM 

(6) 

R*8 

000000 

. Satellite Cartesian 
elements. . 

F 

NONAME 

AVGPOT 

„ 




DENSTY 

DRAG 






EGRAV 

F 

GEOIDH 
. RESP.AR 


4 




SUNGRV 
SURDEN 
TIDAL 
. VEVAL 

R 

R*8 

000030 

Satellite earth 
centered position 
radius . 

% 

% • , 

EGRAV 

NONAME 

AVGPOT 

DENSTY 

DRAG 

EGRAV • 

GEOIDH 

RESPAR 

SURDEX 

TIDAL 

VEVAL 

RSQ 

R*8 

000038 

R*R 

EGRAV 

NONAME 
DRAG 
EGRAV 
RESPAR 
. SUNGRV 
' SURDEN 






VEVAL 

I SAT 

1*4 

000040 

Index of satellite 
. orbit being 

ORBIT 

DRAG 

F 




• integrated. 

. 

ORBIT 






RESPAR 






SURDEN 

* 

9 


♦. . - 


VEVAL 

IFORCE 

(2) 

1*4 

000044 

Displacements in 
. partial array of 

drag and solrad 

NONAME 

■NONAME 

DRAG 

F 


partials . 


9,0-71 



Variable 

XYZEND 

( 6 , 2 ) 


DRGPAR 

( 6 , 2 ) 


/XYZOUT / 

COMMON /XYZOUT/XYZEND (6 , 2) ,DRGPAR(6 , 2) 





Program 

Where 

Programs 

Where 

Type 

Hex Location 

Description 

Defined 

Used 

R*8 

000000 

Cartesian satellite 
coordinates corres- 
ponding to time o£ 
integration call. 

ORBIT 

NONAME 

GRHRAN 

OBSDOT 

0RB1 

ORBIT 





PREDCT 





typorb 

R*8 

000060 

Cartesian drag 
partials corres 1 
ponding to time 
of integration 
call . 

ORBIT 

GRHRAN 

OBSDOT 

ORBIT 

PREDCT 

typorb 


9 . 0- 72 



/VMAT/ * . 

Common block VMAT is all scratch and used by subroutines 
COTOLL , INOUPT and VEVAL. 


—a tt - 



/VRBLOK/ (Version 1) 
COMMON/VRBLOK/GPSIG (960) 


Variable 

Jyp. e 

Hex Location 

Description 

An . m 

Programs 

Where 

Defined 

Programs 

Where 

Used 

GPSIG 

(960) 

R*4 

000000 

Sigmas on common 
adjusted geopo- 
tential coef- 
ficients . 

INOUPT 

COM EAR 
INOUPT 
STORE 


• i 


/VRBLOK/ [Version 2} .» 

• COMMON/VRBLOK/BIASSO(900) ,BIASSG(900) ,BSTANO(9O0) 


Variable 

T yP e 

Hex Location 

Description 

Programs 

Where 

Defined 

Programs 

Where 

Used 

BIASSO 

(900) 

R*4 

000000 

A priori value 
of adj us ted biases . 

INOUPT 

BIAS 

ARCPAR 

BIAS 

INOUPT 

STORE 

BIASSG 

(900) 

R*4 

* 

000E10 . 

A priori sigmas 
of adjusted biases . 

INOUPT 

BIAS 

ARCPAR 

BIAS 

INOUPT 

STORE 

BSTANO 

1*2 

001C20 

Station numbers 
for adjusted 
biases . 

INOUPT 

BIAS 

ARCPAR 

BIAS 

INOUPT 

STORE 


_9.QtZS - 



/VRBLOK/ (Version 3) 
CCMM0N/VRBL0K/A1 , IBUF ,AORN 





■ * . ‘ ■ 

Programs 

Where 

Programs 

Where 

Variable 

Type 

Hex Location 

Description 

Defined 

Defined 

Al(66) 

R*8 

000000 

Dummy 

- --- 

*:■ 

IBUF 

1*4- 

000210 

Scratch 

DATARD 

DATARD 

(1980) 



. • 



AORN 

(69) 

R*8 

002X00 

Dummy 




' • 

/VRBLOK/ (Version 4) 


' COMMON /VRBLOK/XYSQ 
PLAMDA,P (33 ,30) , 


COSLAM(31) ,SINLAM(31 ,PR,PPSI 
AORN (30) ,TPSIM(39) 


J 


Variable Type Hex Location 


XYSQ 


R*8 000000 


Description 

X**2+Y**2 where X 
and Y are the earth 
centered X§Y 
coordinate of the 
satellite . 


Programs 

Where 

Defined 


EGRAV 


COSLAM R*8 00000 8 

(3D 


The cosines of t . CBROWN 
m*longitude of the EGRAV 
satellite for 
m=0 , 30 


SI ML AM 
(31) 

R* 8 

000100 

The sines of 
m*longitude of 
the satellite for 
m=0 ,30 . 

EGRAV 

PR 

R*8 

0001F8 

Partial of the 
earth potential 
with respect to the 
radial direction 

EGRAV 

; ppsi 

<► • ■* 

R*8 

000200 

Partial of the earth EGRAV 
potential with re- 
spect to geocentric 
latitude. 

PLAMDA 

R*8 

, 000208 

* Partial of the 
earth potential 
with respect to 
east longitude. 

EGRAV 


Programs 

Where 

Used 

CBRQtiN 

EGRAV 

INDENT 

NEWARC 

RESPAR 

VEVAL , 

CBROWN 

EGRAV 

GEOIDH 

INDENT 

NEWARC 

RESPAR 

VEVAL 

CBROWN 
EGRAV 
GEOIDH 
. INDENT 
NEWARC 
RESPAR 
VEVAL 

CBROWN 

EGRAV 

INDENT 

NEWARC 

VEVAL 

CBROWN 
EGRAV 
INDENT 
’ NEWARC 
■' VEVAL 

CBROWN 

EGRAV 

INDENT 

NEWARC 

VEVAL 


n n ” *7 



Variable 

P(33,30) 


AORN(30) 


i TPSIH 
(30) 


/VRBLOK/ (Version 4) (Cont.) 


Type Hex Location 
R*8 .000210 


r*8 002100 


Description 


Programs 

Where 

Defined 


The Legendre and EGRAV 

associated 
Legendre poly- 
nomials of the 
spherical harmonic 
expansion. 

P(m+l,n) is the 
polynomial associ- 
ated with degree n 
and order m. 

AORN (n) = where EGRAV 

R is the distance 

from the earth’s 

center to the point 

where the potential 

is being evaluated. 

A is the semi- 
e 

major axis of the 
earth, and n is 
the degree. 


R*8 0021E0 


The tangents of m . EGRAV 
times the geocentric 
latitude 
for m=0 ,30 . 


9.0-78 


Programs 

Where 

Used 

AVGPOT 

BMTWRT 

EGRAV 

GEOIDH 

indent 

NEWARC 

RESPAR 

VEVAL 


AVGPOT 

EGRAV 

GEOIDH 

NEWARC 

RESPAR 

VEVAL 


EGRAV 

NEWARC 

RESPAR 

VEVAL 



